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Nedâvno jsem si năkde pfetetl, ie Japonci dali do prodeje komputer, 
ktery odpovtdâ na otâzky dîtăte — nechme stranou technicky probiăm, 
jak se p f(stroji daff zanalyzovat dătskou fet, pochopit smysl otâzky, 
nalâzt v pamăti sprâvnou odpovăd a jak ji opăt lidskou feti pfednâst 
— a/e co na to dftă? Ti co je majf, to znajî z vlastnf zkuăenosti. „Dej mi 
pokoj“ nebo „co se pofâd vyptâvâă" pffpadnă se stroze odpovi a ne 
vidy zcela sprâvnă. Kontakt dîtăte s rodidem je tîm sice zachovân, ale 
ne zrovna tîm nejlepSfm zpdsobem. Dîtă bere rodiăe jako neomylnou 
autoritu. Kdyi se pozdăji dozvî, ie rodit nemăl pravdu, nebo ie neznâ, 
je tato autorita ponăkud otfesena, cit a lâska zde vSak vătăinou 
zustanou. Ale co komputer a vztah dîtăte k jeho pfesnă a probiăm 
otâzky zcela vyterpâvajfcf odpovădi. Dftă se dovîdâ mnohem vfce, je 
rychleji vzdăîană, ale je ochuzeno o citovou strânku vztahu k rodiţi. 
Kromă toho vznikâ vztah tlovăka ke stroji, k zaffzenf kteră tlovăku 
rozăifuje obzor poznânf, utl ho navfc vyjadfovacî pfesnosti, ale takâ 
tvofivâmu myălenf, jak otâzku formulovat ti jakou otâzku poloiit, aby 
stroj pfekonaL Z tlovăka tak mQie vyrQstat vysoce inteligentnf tvurce 
dalăfch hodnot, tlovăk, ktery se tfeba vîce uplatnf v moderni technickă 
spoletnosti, protote byl od mlâdî pfesnă a bohată informovân. 

„Potfebujeme kvalitativnă novou urovefi vefejnâ informovanosti i ve 
vojenskâ oblasti" pfăe v listu IZVESTIJA Stanislav Kondraăov 
a pokratuje: „Bez nf nemuieme potîtat se stabilnf duvărou okolnîho 
svăta vuti sovătskâ politice. Bez nf nenf moinâ seridznf vefejnâ diskuse 
vzemi o utelnosti a prioritâch stâtnfho rozpottu, o tom, jak velkou jeho 
tâst si mOieme dovolit vănovat na budovânf a udriovânî ozbrojenych 
sil. Sovătsky svaz se v roce 1987 na pudă OSN zavâzal, ie oznâmî reâlnă 
vojenskâ vydaje. Splnănî tohoto zâvazku je văak spojeno s propotty, 
kteră komplikuje i tak relativnî systâm cen, rozptylenost zbrojnich 
zakâzek po vîce nei patnâcti ministerstvech, a moinâ takâ 
v rozhodujfcf mîfe to, ie nikdo vâină vydaje nepotftal. Nikoliv ze 
sovătsky'ch, ale z americkych publikacf se dozvfdâme, ie jeden 
z vyznamny'ch sovătsky'ch vojenskych tinitelu za nâvătăvy v USA uvedl, 
ie ani sâm skutetny rozsah vojenskych vydaju neznâ. Neznâme 
celkovy potetnî stav naăich ozbrojenych sil, atkoliv na Zăpadă, 
napffklad v USA, se potetnî stav ozbrojenych sil pravidelnă oznamuje. 
Nevfme, jakou tâst z celkovâho pottu naăich tanku tvofî 10000 
tankQ, kteră se majf zlikvidovat, a kolik tankovych divlzî zustane ve 
vychodnî Evropă potâ, ai pch odtud bude Şest staieno.“ Tyto 
skutetnosti podle komentâtora nejen brânî duvăfe okolnîho svăta vuti 
SSSR, ale pfedevăfm brânî racionâlnfmu ffzenf zemă, racionâlnf 
mobilizaci sil a zdroju k pfestavbă. 

Tolik Rudă prâvo z 5. ledna 1989. 

Lâta se v zemfch RVHP mltky pfedpoklâdalo, ie je to nutny umysl 
utajovat pfesnă tfsla o temkoliv, aby „tffdnf nepfftel" nevădăl. Dnes se 
nâm foto utajovânî văeho do nedâvnâ minulosti mstf. Rozrostlo se 
tak, ie jsme neschopnî mft jakoukoli skutetnă pravdivou evidenci 
o temkoli, tili jsme v totâlnî nevădomosti o skutetnâm stavu văcf â to 
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kdekoli. Zâpadnf zemă nâm proto nevăfî. „Nevăfî naăim udajum 
a provâdăjî si vlastnf prOzkumy a evidenci jak to vlastnă v zemfch RVHP 
skutetnă vypadâ.“ (E. Sevarnadze). VSeobecnâ neinformovanost, ale 
i neznalost skutetnâho stavu văcf vyplyvâ takâ z totâlnî nedisciplinova- 
nosti vyplfiovânf rQzny'ch formulâfO a hlâăenî (tuto nedisciplinovanost 
ovăem podporuje jejich vlastnî ubohost a tasto i nesmyslnost) 
vymyălenymi nebo vhodnă upravenymi udaji tak, aby vyhovovaly pfănî 
nadfîzenych sloiek. Zpracovanâ vysledky jsou pak pfirozenă mylnymi 
podklady pro centrâlnî zpracovânî, z kterâho dâle vznikajf nereâlnâ 
plâny, scestnâ smărnice, nesplnitelnâ usrwsenî. Dodavatelsko-odbăra- 
telskâ vztahy jsou naruăeny, ukoly se neplnf, prostoje a dluhy rostou. 
A to pfedevăîm proto, ie informace nenf strojovă objektivnî. Clovăk ji 
zkreslil, upravil, znehodnotil. Komplexnf hromadnâ nasazenf a plnâ 
vyuiitî vypotetnf techniky, automatizace sbăru a vyhodnocovănî udaju 
by subjektivnf vlivy tlovăka vyraznă omezilo, pfesunulo na periferii 
rozhodovacfho procesu. To by se ovăem năkterym bonapartistOm 
nelîbilo, ale stroj vidy rozhoduje objektivnă, nestrannă, vădecky 
pfesnă. A jedină exaktnf fîzenf spoletnosti zaloienâ na objektivnă 
pravdivâ informovanosti je v modernf dobă moină. 

Nasazenî vypotetnf, automatizatei a dalăî modernf techniky v ffzenf, 
vyhodnocovănî, rychlâ koordinaci atd. pffmo v masovâm măfftku do 
văech hospodâfskych a ffdicîch struktur ve văech zemfch zâpadnfho 
hospodâfskâho systâmu (EHS) umoinilo mimo jinâ vyhled sjednocenf 
celâ ekonomiky do jednotnâho trinfho systâmu po roce 1992. 
S „Nysami“ a „stofy“ by to nikdy nebylo moinâ. Takovâto nadnârodnf, 
mohutnâ organizace by nikdy nemohla byt rentabilei a bez dokonalâho 
vybavenf nejmodernăjăi technikou by se nutnă zpâtky atomizovala 
a pfijala opăt pffsnâ celnf, vyvoznf a dată! opatfenf. Bez supermodernf 
techniky v pokrokovâ industriâlnî spoletnosti nenf tedy moiny rychly 
koordinovany vzâjemnă vyhodny postup vpfed. 

Amatârskâ zâjmovâ tinnost, stavba nejruznăjăfch pffstroju a zaffzenf 
patfily, patff a budou patfit mezi krOtky v tomto smăru. 

ing. Jan Klabal 
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Jedni'm z nov^ch druhG informadnich sluieb pfi soudasnâm vyuSti stâvajlcich tras pro pfenos 
informacf jsou systămy vyuihrajicf dosud volnych fădku v televiznim signâlu. System, ktery pro pfenos 
informace digitâlnîm zpOsobem vyuifvâ volnych fâdkâ v pâlsnimkovăm zatemftovacfm intervalu, 
.dostal obecny nâzev TELETEXT. 

Teletextovâ sluiba byla poprvă realizovâna ve Velkă Britănii v polo vină sed îndesătych let u stâtnl 
spoleEnosti BBC pod nâzvem Ceefax a u komerEnf IBA pod nâzvem Oracle. 


Teletextovă systemy jsou postuprtă 
zdokonalovâny a v tăto souvistosti 
existuje dălenf pfenosovych systămu 
na păt tzv. urovni: 

Uroveft 1— zâkladnl abeceda bez dia- 
kritickych znamănek, Şest zâkladn fch 
barev, relativnă hrubă grafika. Tuto 
uroveft mâ britskâ verze teletextu 
v zâkladnim provedeni. 

Uroveft 2 — abeceda vCetnă diakritic- 
kych znamănek, pastelovă barvy, 

, hladkă prechody mezi symboiy mo- 
zaikovăho typu. Tato uroveft se Câs- 
teCnă vyuiivâ pfi aplikaci britskăho 
teletextu pro jină jazyky. 

Uroveft 3— za vădi se tzv. DRCS {Dy na- 
mi cal ty Redefinable Character Set) 

— dynamicky redefinovatelnă sou- 
bory znaku, tzn. nejprve se z centra 
nadefinujl netypizovană znaky a sym¬ 
boiy, pak jsou vyvolâvâny obdobnă 
jako znaky typizovană. V tăto urovni 
je moino vytvâfet grafiku s vysokou 
rozfiSovacf schopnostl, rozâffit poCet 
barev, pouiîvat i obrâzkovăho pisma 

_ (japonătina a ClnStina). 

Uroveft 4 — alfageometrickă kădovânl; 
definuje zobrazovană znaky s pouii- 
tlm păţi zâkladnfch povelu pro kres- 
• lenf bodu. Car a ploch. Lze zobrazit 
obrazy bohată na podrobnosti, kteră 
se kvalitou bli2( fotografii. V tăto 
urovni pracuje napr. kanadsky sy- 
_ stăm Telidon. 

Uroveft 5— alfafotografickâ metoda 

— umoiftuje pfenos statickych obra- 
zO s vysokou rozliâovacl schopnostî. 
Obraz mă zpoCătku hrubou strukturu 
a s postupujtcim Casem se zjemftuje. 
Tato metoda je pouiita pfi vyvoji 
japonskăho systămu Captain. 

V Ceskoslovensku byio po zvâienf 
technickych i ekonomickych faktoru 
rozhodnuto zavăst systăm WST (World 
System Teletext — takto je z pre- 
stiinfch a reklamnich duvodu nazyvân 
britsky systăm teletextu). V sousednich 
zemlch se timto systămem bucf ui 
vysflâ (NSR, Rakousko, Macfarsko) ne- 
bo se vysitănl pfipravuje (Polsko). 

Zâkladn! technickâ speciftkace sy¬ 
stămu WST: 

1. Data se pfenâăeji rychlostl 6,937$ 
Mbit/s v tzv. „neviditelnych" tv făd- 
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cich (tj. fădcfch C. 7 ai 22 a 320 ai 
335, kteră năsleduji tăsnă po snim- 
kovăm synchronizaCnim impulsu, ale 
nejsou zobrazovăny). Pokud nenl 
vysilân băiny tv signăl, lze vyuilt 
vâech tv fădku. Băhem jednoho tv 
fădku se pfenese informace o ceiăm 
textovăm fădku, tj. Cislo magazlnu, 
Clsio fădku a 40 znaku, v pripadă 
nultăho fădku Cfslo magazlnu, Cislo 
fădku, Cfslo strănky a podstrănky, 
ffdlcf kădy a 32 znaku. 

2. Kaidă zobrazovană strânka mâ 24 
textovV'ch fădku po 40 znacich. Prvni 
fâdek strănky (tj. fâdek C. 0) se 
nazyvâ zăhfavf. Jsou v năm pfenâăe- 
ny ffdlcf informace nutnâ pro zobra- 
zeni strănky, dâle Cfslo zobrăzenă 
strănky, nâzev informaCnf stuiby (na- 
pf. CST-TEXT nebo ORF-TELE- 
TEXT), datum a pfesny Cas. 

3. Maxtmâlni poCet pfenăâenych 
strânek je 800, kaidă z tăchto 
strânek mOie mit ai 50 pfifazenych 
„podstrânek**. Strănky se rozdăluji 
do tzv. magazfnâ po 100 strănkâch. 
Doba pfenosu jednoho magazinu je 
asi 25 s pfi vyuiiti dvou fădku 
v pulsnimkovăm zatemftovacim in¬ 
tervalu. Pfi vătâim poCtu magazine 
nebo pfi vyuiiti „podstrânek” se 
doba pfenosu celă reiace pflsluănă 
prodluiuje. 

4. Rychlost pfenosu je moină zvătăit 
zvătăenlm poCtu vyuiltych fădku (na- 
pf. 4 nebo 6 v pulsnimkovăm za¬ 
temftovacim intervalu). 

5. informace jsou pfenâăeny săriovă 
pomoci digităinfeh slov s jednotnou 
dălkou osm bite. Sedm bite je infor- 
maCnich. osmy bit je paritnf. U adres 
a duleiitych funkcf je pouiito ochra- 
ny samokorigujicim Hammingovym 
kCdem. 

6. Systăm umoiftuje zobrazeni textu do 
aktivniho obrazu, napf. titutkovăni 
pofade pro neslyăicf nebo zobrazeni 
tzv. „newsflash”, tj. dOleiită krâtkă 
zprâvy, kteră se na obrazovce obje- 
vuje v okamiiku vysilân!. 

7. MOie byt pouiito osm barev pro po- 
zadi znakO a viastni znak. Dâte je 
moină zobrazovat znaky s dvoj- 
nâsobnou vySkou. 


Podrobny popis je uveden v souhrn- 
năm pfehledu „TELETEXT — popis 
systămu WST urovnă 1.5 na str. 9. 


Stav v CSSR 

V Ceskoslovensku do konce roku 
1988 probihalo experimentăini vysilân!, 
urCertă pfedevăim pro pracovniky re- 
dakef teletextu a pracovniky spoju. Od 
1. 1. 1989 je zavedeno pravideină 
vysiiâni. Pfedpokiâdâ se, ie hlavni 
nâpln! tăto novă sluiby bude alespoft 
z poCătku pomoc nârodnimu hospo- 
dâfstvi, tj. sdălovâni informacf z oblasti 
prumyslu, zemădălstvf, dopravy, zdra- 
votnictvf apod. Dâle bude nabizet 
programy rozhlasu a televize, divadei, 
informace o poCasi, vyukovă programy, 
zpravodajskă informace atd. 

Specifickym problămem zavedeni tele¬ 
textu v CSSR je existence dvou spisov- 
nych jazykO, resp. i năkterych jazyku 
menăinovych. RozSffen! souboru znaku 
tak, aby dokonaiă zobrazit vSechna 
diakritickâ znamănka, uifvanâ v CeStină 
a sloven Stină, a dâle o znaky uifvană 
v abecedâch sousednich zemi, je uzee 
spojeno s voibou systămu teletextu. 

Zăkladnf tabuika znaku 00, platnâ 
pro WST urovnă 1 (viz Clânek „TELE¬ 
TEXT — popis...“) je navriena pro 
angtiCtinu. Pfi postupnăm zavădăni 
WST v evropskych zemlch musel byt 
spinăn poiadavek na zobrazeni speci- 
fickych nârodnfch abeced. Tak vznikly 
dală! normalizavană nărodni tabulky, 
kde jsou na tfinâcti definovanych pozi- 
cich umfstăny năkteră nărodni znaky. 

CeStina spolu se slovenătinou obsa- 
huje znaCnă vătăi poCet zvlâStnich 
znaku. Proto musel byt systăm na 
urovni 1 rozâifen alespoft pfi pfenosu 
aifanumerickych znaku na uroveft 2. 
Tfm se văak ponăkud prodlouii doba 
pfenosu a zvy§! se nâroky na funker 
dekodăru. Uroveft takovă soustavy se 
oznaCuje jako „uroveft 1,5“. 

Prakticky se pfenos dat na tăto 
urovni provâdi tak, ie jsou vysilâny tzv. 
neviditelnă fâdky (pakety), kteră maji 
podobny formât jako textovă fâdky, ale 
maji Cislo vySSl nei 24 a nesou dopiftu- 
jici informace pro dekodăr znaku. 

Pro pfijem informaci pfenăâenych 
pomoci teletextu je tfeba, aby televizn! 
pfijfmaC byl vybaven speciâlnim deko- 
dărem. 

Teletextovă dekodăry byvaj! zabudo- 
vâny pfimo do televiznleh pfijimaCC 
a jsou sestaveny z jednouCelovych 
obvodu VLSI, vyvinutych pouze pro 
tento 6CeL 





Obr. 1. Blokovă schâma adaptâru 


Z dosavadniho vyvoje je zrejmâ, ie 
v CSSR bude otăzka souââstkovâ zâ- 
kladny pro dekodâry Feăena dovozem 
bucf souââstek nebo dekodâru, pripad- 
nă celych TV pFijimaâu. Dekodâry se 
samozFejmâ budou montovat do no- 
vych pristroju, protoie podle vyjâdreni 
pFislusnych odborniku dosud vyrâbănâ 
pFijimaâe nevyhovuji koncepână pro 
kvalitni pFijem teletextu. Z tohoto dOvo- 
du, a takâ proto, ie dekodâry sestave- 
nâ ze speciâlnich obvodu jsou urâeny 
pro pFimâ vesta văni do televizoru, 
nebude moinâ doplftovat stâvajici tv 
pFijimaâe tămito dekodâry. V soucasnâ 
dobă u nâs neni tedy na âem tyto 
informace prijimat. Je vhodnâ zamyslit 
se nad moinosti, jak vyuiit stâvajfcich 
tv pFijimaâu (i kdyi nejsou zcela vhod¬ 
nâ) a pripadnă dalăich dostupnych 
pristroju tak, aby bylo moznâ teletext 
dekâdovat a zobrazovat na stâvajicich 
televizorech i za cenu sniienych kvalita- 
tivnich poiadavku. 

Situace je podobnâ tâ, kterâ vznikla 
v CSSR pFi zavâdăni II. tv programu. 
Tehdy byla Feăena pomoci konvertoru, 
tj. pFistroju, kterâ umoinily pFijem 
druhâho programu i na starăich tv 
pFijimaâidn. Toto reăeni bylo sice ne- 
praktickâ (nutnost pFepinâni a nastavo- 
vâni dvou ladicich prvku), ale pFesto 
umoinilo pFijem bez nutnosti zâsahu 
do zapojeni televizoru. 

Navrhovan& reăeni 

Koncepce pouiiti ,,vnăjăiho“ deko- 
dâru teletextu je zalozena na tâchto 
faktech: 


1. PFenosovâ charakteristiky moder- 
nfch barevnych televizoru zaruâuji 

* nezkresleny pFenos barvonosnych 
kmitoâtu (stFedni kmitoâet kolem 
4,4 MHz). Dâle byvaji vybaveny 
vstupem a vystupem videosignâlu se 
standardni urovni. Tento videosignâl 
samozrejmă obsahuje i Fâdky nesou- 
ci teletextovâ data. (Praktickymi 
zkouăkami bylo zjiătăno, ie pro 
pFijem v mistech kvalitnfho signâlu 
vyhovl i pFenosnâ âernobilâ televizo- 
ry s doplnânym videovystupem.) 

2. Stâle vice se rozăiFuji osobni poCfta- 
Ce, kterâ umoifiuji zpracovat vhodnâ 
upravenou informaci a zobrazit ji na 
obrazovce televizoru. Barevnâ zo- 
brazeni, pouiivanâ i u jednoduăăich 
poâitaâu, odpovtdâ ăâstednâ uprave- 
nym poiadavkum na zobrazeni tele¬ 
textu. 

Na tâchto skuteânostech je zaloiena 
myălenka vyuiit osobniho poâitaâe pro 
dekâdovâni a zobrazovâni teletextu. 

Samotny' mikropoâitad samozFejmâ 
neni schopen pFimo zpracovat video¬ 
signâl z televizoru. Je tFeba vytvorit 
vhodny meziâiânek (adaptâr), ktery 
umoini vybrat data, vysilanâ v pFi- 
sluănych tv Fâdcich, pFevâst je ze 
sâriovâho do paralelniho tvaru 
a uschovat je na potFebnou dobu ve 
vyrovnâvaci pamâti. Z tâto pamâti si je 
pak v danâm okamiiku mikropoâitad 
pFesune do svâ operaCni pamâti, vhod- 
nym zpusobem zpracuje. a zobrazi na 
obrazovce. 

Z uvedenâho zpusobu dekâdovâni 
vyplyvaji nâkterâ omezeni a nevyhody 
proti standardnimu zpusobu dekâdo¬ 
vâni: 

1. Zâkiadni sestava pro pFijem teletextu 
je sloiena z tv pFijimaâe, adaptâru, 


mikropoâitaâe a monitoru pro mikro- 
poâitaâ. V praxi to znamenâ pouiiti 
dvou tv pFijimaâu. 

2. PFi poiadavku na pouiiti pouze jed- 
noho televizoru je nutny bucf zâsah 
do pFijimaâe nebo by bylo moinâ pFi 
pFijmu tv signâlu obsahujiciho tele¬ 
text poiadovanou strânku naâist do 
pamâti mikropoâitaâe, pak pFepnout 
tv pFijimaâ jako monitor a strânku 
zobrazit. V druhâm pFipadâ by tedy 
bâhem vybăru a zpracovâni dat bvl 
na obrazovce televizoru program 
pFijimanâho vysilaâe (u standardniho 
dekodâru je stâle zobrazena posled- 
ni naâtenâ strânka). Dâle by byla 
nutnâ zvukovâ signalizace naâteni 
strânky. V pFipadâ, ie zvolenâ strân¬ 
ka mâ rotujici podstrânky, je tento 
zpusob velmi neprakticky. 

3. Vzhledem ke zpusobu zobrazovâni 
mikropoâitaâu pomoci „okna“ na 
obrazovce (ZX-Spectrum, Sord, 
Sharp) je zobrazenâ strânka roz- 
mârovâ menSi; to mâ za nâsledek 
zhorăenou jakost obrazu. 

4. Neni moinâ vkopirovat zobrazovanâ 
informace do tv obrazu, tj. nelze 
napF. titulkovat vysilanâ poFady. 

5. Kaidy mikropoâitaft je zdrojem po- 
mârnâ intenzivniho ruăeni. Takâ sâm 
adaptâr ruâi, i kdyi podstatnâ mânâ 
nei mikropoâitaft. PFi pouiiti uvede¬ 
nâho zpusobu pFijmu teletextu je 
vlastnâ mikropoftitaâ pFes televizor 
pFipojen k antenă. Z toho plyne 
pFedevăim nutnost zkontrolovat 
moinost ruăeni okolnich televiznich 
a rozhlasovych pFijimaâu zvlâătâ 
v pFipadâ, ie se jednâ o pFijem na 
spoleânou antânu. Dâle je nutnâ 
poâitat s tim, ie pFijem teletextu 
bude zcela znemoinăn, pokud pFi- 
jimany vysilaâ bude v I. nebo II. 
pâsmu, a bude obtiiny pFi pFijmu 
vysilaâQ v doinim konci III. pâsma 
(kanâl ă. 5 CCIR-B a â. 6 CCIR-D). 
Tento problâm se netykâ jenom 
pFijmu zahraniânich vysilaâu. Cs. 
teletext je sice vysilân pouze v siti 
druhâho programu (tj. pâsmo IV. 
a V.), ale ve spoleân^ch antânâch 
byvâ pFijimany signâl pFevâdăn na 
năktery kanâl v pâsmu I. a II. a jeho 
vyuiiti pro pFijem teletextu timto 
zpQsobem je znemoinăno. Reâenim 
je pak pouze individuâlni pFijem 
druhâho programu. 

Dekâdovâni teletextu mikropoâfta- 
âem naopak umoihuje snadnâ zpraco¬ 
vâni pFijatych dat, jejich pFenos do jinâ 
informaâni sită a dalăi zpracovâni. Dâle 
je moinâ upravou programovâho vyba- 
veni modifikovat zpracovâni informaci 
podle poiadavku uiivatele. Relativnă 
velkâ operaâni oamăf mikropoâitaâe 


umoifiuje i takovy zpusob dekâdovâni, 
kdy je nâkolik poiadovanych strânek 
nejprve naâteno a zpracovâno a pak 
jsou postupnâ v libovolnâm poradi 
zobrazovâny bez jakychkoli ztrâtovych 
âasu. 

Koncepce adaptâru pro 
dekâdovâni teletextu 
mikropo&ita&em 

Adaptâr se sklâdâ ze dvou zâklad- 
nich ââsti — analogovâ a digitâlni, viz 
blokovâ schâma na obr. 1. 

V analogovâ ââsti je videosignâl 
nejprve zesilen ve vstupnim zesilovaâi, 
pak jsou z năho oddâleny synchroni- 
zaâni impuisy a vlastni data. Tyto dva 
signâly jsou dâle zpracovâvâny v digi¬ 
tâlni ââsti adaptâru. Ze synchroni- 
zaânich impulsu jsou odvozeny kliâova- 
ci impuisy pro Fizeni vybăru dat 
a sâriovă-paralelniho pFevodu. Data, 
pFevedenâ do paralelniho tvaru, jsou 
pFivâdâna do identifikaâniho obvodu, 
ktery reaguje na identifikaâni slovo 
teletextu (framing code). V pFipadâ, ie 
je toto identifikaâni slovo nalezeno, 
zapiSi se nâsledujici data z pFisluănâho 
Fâdku do vyrovnâvaci pamâti. V aktivni 
dobă pulsnfmku, tj. v dobă, kdy je na 
obrazovce zobrazovân obraz vysilany' 
vysilaâem, pak mikropoftitaâ Fidi pFe- 
sun dat z vyrovnâvaci pamâti do vlastni 
operaâni pamâti a dâle je zpracovâvâ 
podle zadan^ch poiadavku. 

Ve skuteânosti nejsou jednotlivâ 
funkâni bloky ostre oddâleny, ale na¬ 
opak, z duvodu co nejjednoduăăfho 
zapojeni se navzâjem prolinaji. 

Popis zapojeni a funkce . 
jednotlivych obvodu 

Zapojeni adaptâru a napâjeciho 
zdroje je uvedeno na obr. 2. a 3. 

Analogovâ ââst vlastniho adaptâru je 
Feăena klasickym zpusobem pomoci 
diskretnich souââstek, digitâlni ââst 
vyuiivâ obvodu TTL SSI, MSI a LSI. 

Tranzistory TI, T2, T3 a T3’ tvoFi 
vstupni zesilovaâ, jehoi zesileni Ize 
nastavit promănnym rezistorem R5. 
PFedpoklâdâ se, ie velikost mezivrcho- 
lovâho napătf vstupniho signâlu je 
v rozsahu 0,5 ai 5V. Tranzistory T3 
a T3’ vytvâFi oddâlenâ vystupy video¬ 
signâlu pro separâtor a tvarovaâ dat 
a separâtor a tvarovaâ synchroni- 
zaânich impulsQ. 

Z emitoru tranzistoru T3’ je signâl 
pFiveden do obnovitele stejnosmărnâ 
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slozky tvofenâho kondenzâtorem C8, 
rezistorem R14 a diodou Dl. Ten upfnâ 
temena synchronizadnich impulsu na 
urovefi asi —1 V. Vlastni obrazovy 
signâl prochâzf doini propusti, kterâ je 
tvofena rezistorem R15 a kondenzâto¬ 
rem C9. Takto upraveny signâl je 
pFiveden na neinvertujici vstup kompa- 
râtoru synchronizadnich impulsii (t/2 
102). Invertujfci vstup je spojen 
s jezdcem nastavitelnâho rezistoru 
R26. Tfmto trimrem se nastavuje vzor- 
kovacf uroveft. Na vystupu komparâto- 
ru pak ziskâme synchronizadni smâs 
obsahujlci Fâdkovâ Lsnimkovâ syn¬ 
chronizadni impulsy (H). V obvodu sto- 
ienâm z 103, R18, R19, CI 9 jsou z tâto 
smâsi oddâieny snfmkovâ synchroni¬ 
zadni impulsy (V, V). 

Od snimkovâho synchronizadniho 
impulsu (V) je odvozen pomoci dvou 
monostabilnfch klopnych obvodu (104) 
signâl GO, ktery vymezuje dobu, po 
kterou se pFedpoklâdâ prfehod Fâdku 
obsahujicich teietext (tj. Fâdky d. 7 ai 
22 a 320 a t 335). PFesnâ dasovâ 
umistâni signâlu GO Ize nastavit pomo¬ 
ci R21 a R23. 

Z emitoru tranzistoru T3 je pFes 
kondenzâtor C4 pFivâdân videosignâl 
pffmo na neinvertujici vstup kompa- 
râtoru (2/2 102). Obvod C5, R9, 2/4 
1.01, R10, C49 a T4 tvofi spotu S C4 
obnovitel stejnosmârnâ sloiky. Upnu- 
tim na urovert dernâ se odstraftuje vliv 
kapacitni vazby na posun urovni video- 
signâlu pFi kolisâni stredniho jasu. 
Vzorkovaci urovert, pFivădânâ na inver- 
tujfcf vstup komparâtoru z R13, muşi 


byt nezâvisle na velikosti pFivâdânâho 
videosignâlu vădy uprostFed mezi lirov- 
nâmi log. O a log. 1. Toho dosâhneme 
tak, ăe napâjime rezistor R13 ze 
âpidkovâho usmârftovade T5, R11 a C6 
pFes tranzistor T6, ktery slouii pro 
posun urovnâ napâti. Napâti na emitoru 
T6 se pFi zmânâch velikosti pFi¬ 
vâdânâho signâlu mâni souhlasnâ 
s urovni odpovidajici log. 1. T(m je 
zajiătâno automatickâ udriovâni vzor- 
kovacf urovnâ na poiadovanâ hodnotâ. 
Na vystupu komparâtoru dostaneme 
signâl DATA, ktery obsahuje teletexto- 
vâ data v sâriovâm tvaru. Kondenzâtory 
C16 a C16’ slouii k „doladâni" (tvaro- 
vâni) signâlu DATA. 

Ze signâlu DATA jsou v obvodu 
tvoFenâm 105, rezistory R24, R25, R26, 
R27 a kondenzâtory C17 a C18 ziskâny 
synchronizadni impulsy pro generâtor' 
hodinovâho kmitodtu 6,9375 MHz. Ge¬ 
nerâtor vyuiivâ jedno hradlo 106 spotu 
s C21, C22 a LI jako oscilâtor 
a zbyyajfci hradla slouii jako invertory. 
Na vystupu t âchto invertoru ziskâme 
signâl CLK a CLK, ktery je nutny pro 
sâriovâ-paralelni pFevodnik. Generâtor 
je klidovân signâlem GO, tzn. ie kmitâ 
pouze v dobâ pFedpoklâdanâho pFi- 
chodu teletextovych dat. 

Sâriovâ-paralelni pFevodnik je reali- 
zovân pomoci posuvnâho registru 107, 
obvodu 108, zapojenâho jako osmidko- 
vy ditad, a mezipamâti (budide sbârni- 
ce) lOII. Posuvny registr je klidovân 
signâlem GO. Na vstup posuvnâho 
registru jsou pFivâdâna data v sâriovâm 
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asm.: Signal DATA je atirvy napfipojem' osatoskopu. 

Lze si pomoci iak.ie snimame signal no vyvodu 6.3 
posuvniho registru 107. 

Obr. 4. Prubăhy hlavnfch signâlu bâhem zadâtku jedno ho pulsnfmku 
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Obr. 5. PrQbâhy htavnfch signâlu bâhem pfichodu teletextovâho fâdku 
(prub&hy jsou idealizovan^, skutsCn* vzâjemnâ umfstftnf signâiO zăvisf na zpoidânf pouSrtych obvodO) 


tvaru, posuv dat je provâdân v rytmu 
hodino vâho kmitodtu CLK. Soudasnă Je 
signâl CLK pFivâdân do osmidkovâho 
ditade, ktery vytvâFi zapisovaci impulsy 
(ST61) pro zâpis jednoho bajtu do 
mezipamâti 1011. 

Obvody 109, 1010 a 2/4 101 tvoFi 
identifikadni obvod, ktery reaguje na 
pFitomnost tzv. râmcovâho kâdu na zadât¬ 
ku teletextovâho tv Fâdku. Jestliăe se 
na vystupu posuvnâho registru objevf 
tento kdd, pak se na vy stup u 1010 
(vyvod 6. 8) vytvoFi impuls (FR). Pokud 
se tento impuls vyskytne na zadâtku 
Fâdku (kontrota pomoci 2/4 lOI), je pak 
z tohoto signâlu a ze signâlu TT pomoci 
klopnâho obvodu (2/4 1014) vytvoFen 
signâl WE a WE, ktery slouii k ovlâdâni 
mezipamâti (1011) a vyrovnâvacf pa- 
mâti (1019, 1020). Dâle je od signâlu 
WE pomoci 3/41012 odvozen synchro- 
nizadni impuls pro osmidkovy ditad 
(108). 

Vyrovnâvaci pamâf IkB tvoFi obvody 
1019 a 1020. Pro adresovânf tâto 
pamâti slouii tri ăestnâctkovâ ditade 
1016, 1017 a 1018. Inkrementovâni 
tâchto dftadu je provâdâno pri zâpisu 
impulsy (STB1) ziskanymi v osmidko- 
vâm ditadi (108), kterâ slouii soudasnâ 
pro zâpis do mezipamâti (1011), pFi 
dteni pak impulsy pFichâzejicimi pFes 
1015 z mikropoditade (STB2). PFesny 
okamiik prepisu jednoho bajtu z mezi- 
pamâti do vyrovnâvacf pamâti (signâl 
CS MEM) je odvozen pomoci 1013 
v zâvislosti na stavu osmidkovâho 
ditade (108). 

Protoie vyrovnâvaci pamâf neni nu- 
lovanâ, je tFeba pFi dteni vymaskovat ty 
bajty, kterâ nebyiy pFi pFedchozim 
zâpisu pFepsârty. To je provedeno 
pomoci 1022. Citaci cyktus je zkrâcen, 
je vyuiivâno pouze 448 bajtu vyrov¬ 
nâvaci pamâti. Po pFichodu snimko- 
vâho synchronizadnfho impulsu je ditad ** 
vynulovân, bâhem aktivniho signâlu 
GO a WE se inkrementuje a zastavi se 
na urditâ adrese. Od tâto adresy po- 
kraduje po skondenf aktivniho signâlu 
GO v inkrementovâni mikropoditad, 
pamâf je vâak odpojena od sbâmice. 
Teprve ai dojde k „pFetedeni" ditade 
a jeho vynulovânf, je pamâf pFipojena 
ke sbârnici. Jelikoi mikropoditad dte 
pouze 448 bajtO, je zarudeno, ie pFedte 
pouze skuteidnâ poiaddvanâ bajty, 
ostatnf budou zamaskovâny hodnotou 
FF (hex). 

Prvnf monostabilni klopny obvod 
v 1021 stouii k prodlouieni signâlu WE 
pro signalizaci pFitomnosti teletexto¬ 
vâho signâlu. Druhy monostabilni kiop- 
ny obvod vytvâFi po skondenf signâlu 
GO impuls nutny pr o din nost maskova- 
cfho obvodu (signâl iNf). 

Prubâhy duieăitych signâlu bâhem 
jednoho pulsnimku a bâhem pfichodu 
teletextovâho datovâho Fâdku jsou roz- 
kresieny na obr. 4 a 5. 

Mikropoditad je k adaptâru pFipojen 
pFes obvod typu 8255A. Signâly CS P10 
a RD PIO nejsou pFipojeny pFes porty, 
ale jsou odebirâny pFfmo z obvodu 
8255A (vyvod d. 6 a 5). 

Z adaptâru do mikropoditade jsou 
pFivedeny signâly DO at 07 a GO. 

Z mikropodftade do adaptâ ru jsou 
p Fivedeny signâly ENABLE, CS PfO 
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Nastaveni adaptâru 

Na vstup adaptâru je tfeba pfivâst 
videosignâl s mezivrcholovym napâtim 
0,5 ai 5 V viz dâst „Podminky dobrâho 
pfijmu". Protoăe zatim nelze nastavit te¬ 
levizor podle adapteru, naladime jej na 
co nejostfejăi obraz. 

Zeslleni vstupniho zesilovade se na- 
stavi rezistorem R5 tak, aoy na rezisto- 
rech R7 a R8 bylo mezivrcholovâ napâti 
asi 3 ai 5 V. Pfi niiăi kvalite signâlu je 
tfeba nastavit vâtăi amplitudu. 

Pak nastavime rezistorem R16 po- 
moci osciloskopu vzorkovaci urovefi 
tak, aby na vystupu komparâtoru syn- 
chronizadnich impulsu byly tyto impul- 
sy stabilnf, ale pritom nedochâzelo ke 
vzniku faleănych impulsu. Zkontroluie- 
me prdbâhy signâIG H, V a V, kterâ 
muşi odpovidat prGbâhGm na obr. 4. 
Pak zkontroluieme a nastavime pro- 
mânnymi rezistory R21 a R23 signâl GO 
a GO. Pfi nastavovâni se orientujeme 
podle mâficiho Fâdku. Pro tyto prâce je 
vhodny dvoukanâlovy osciloskop nebo 
alespofi osciloskop s moinosti externi 
synchronizace. Pfi nastavovâni signâlu 
GO osciloskop synchronizujeme sig- 
nâlem V. Pfi nastavovâni je tfeba vzit 
v uvahu, ie mohou byt zobrazovâny 
sudâ i lichâ pGlsnfmky, kterâ jsou 
navzâjem o pul fâdku posunuty. Z toho 
plyne, ie văechny signâly spjate 
s Fâdkovymi synchronizadnimi impulsy 
se mohou zobrazovat ve dvou pozicich. 
Naopak signâl GO, ktery je odvozen od 
snimkovych synchronizadnich impulsQ, 
mus! byt naprosto stabilnf a muşi byt 
nastaven s jistym pfesahem tak, aby 
pfekryval vyskyt teletextovych fâdku 
v sudâm i lichâm pOIsnimku. Je vhodnâ 
nastavit ăifku aktivnfho signâlu GO 
podle skutednâ vysilanych teletexto¬ 
vych fâdku. V pfipadâ pffjmu vfce 
ruznych systâmu se nastavf ăifka GO 
podle nejrozsâhlejSiho z nich. 

Pro pfenos teletextu mohou byt 
obecnâ pouiity fâdky d. 7 ai 22 (resp. 
320 ai 335). Cs. televize vyuifvâ zatim 
fâdky d.19, 20 (332, 333). Mâfici fâdek 
mâ d. 17 (330). 

Oscilâtor hodin pfedem naladime (s 
kontrolou ditadem) tak, aby voind kmi- 
tal na kmitodtu asi 7 MHz. Pro nastave¬ 
ni je tfeba odpojit signâl GO od vstupu 
5.3 obvodu 106, nepfipojovat videosig- 
nâl, aby nedochâzelo k tvarovâni syn- 
chronizadnfch impulsQ (signâl SYNCH) 
a ditad pfipojit na vyvod 6. 8 nebo 12 
obvodu 106. ' 

Jestliie mâme pfedbâinâ nastaveny 
oscilâtor hodin, pfipojime osciloskop 
na signâl WE (osciloskop synchronizu¬ 
jeme signâlem GO) a promânnym 
rezistorem R13 se snaiime nastavit 
takovou vzorkovaci urovefi pro kompa- 
râtor dat, aby prubâh signâlu WE 
odpovidal prGbâhu na obr. 4 a byl 
stabilnf. Muieme si pomoci i jemnym 
doladânim oscilâtoru a doladânim tv 
pfijimade, ze kterâho zfskâvâme video¬ 
signâf (viz dâst „Podminky dobrâho 
pfijmu“). Podeţ impulsQ signâlu WE 
muşi odpovidat podtu pfitomnych tele¬ 
textovych fâdku. Dâie se mohou nepra- 
videlnâ vyskytnout i faleănâ impulsv 
odpovfdajici fâdkQm se synchroni- 
zadnfmi impulsy soustavy SECAM nebo 
mâficimu fâdku. 

Nakonec nastavime pomoci promân- 
nâho rezistoru R32 zpoidâni signâlu WE 
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na dobu o nâco delăi nei je doba trvâni 
jednoho pulsnimku, tzn., ie pfi pfitom- 
nosti teletextovych dat bude na vyvodu 
6 .5 obvodu 1021 trvale log. 1. Dioda D5 
pak indikuje pfitomnost teletextovych 
fâdku. 

Tim je pfedbăinâ nastaveni ukonde- 
no. Je moinâ jeStd zkontrolovat, zda 
v prubdhu aktivniho signâlu WE Citaji 
ditade 108 a 1016,1017 a 1018, a zda po 
skondeni impulsu GO je v 1021 vytvâ- 
fen impuls (signâl INT; viz obr. 4). Dâle 
je moznâ vhodnym osciloskopem nebo 
log. analyzâtorem zkontrolovat prQ- 
bdhy signâlu podle obr. 5. Pfi pouiiti 
dobrych soudâstek by văak mălo byt 
văe v pofâdku. 

Daldi nastaveni se provâdi pomoci 
mikropoditade. Pro ovdfeni dinnosti 
adapteru slouăî v pfiloze 1 uvedeny 
program v BASICu a rutina ve strojo- 
vâm kddu. Jsou urdeny pro mikropo- 
ditad ZX Spectrum, Ize je vdak snadno 
upravit i pro jind podftade. Pfi upravd je 
pfedevăim nutnâ pfeadresovâni vstup- 
nich a vystupnfch portu obvodu 8255A 
podle dandho podftade. 

Propojeni adaptâru a interfejsu 
s obvodem 8255A je uvedeno v tabulce 
obr. 6. 


Vyvod 

obvodu 

8255A 

Signâl 

Signâl 

Vyvod 

adap¬ 

târu 

4 

PAO 

DO 

4 

3 

PAI 

Dl 

6 

2 

PA2 

D2 

8 

1 

PA3 

D3 

10 

40 

PA4 

D4 

12 

39 

PA5 

D5 

14 

38 

PA6 

D6 

16 

37 

PA7 

D7 

18 

14 

PCO 

GO 

19 

10 

PC7 

ENABLE 

20 

5 

RD 

RD PIO 

27 

6 

CS 

CS PIO 

28 

7 


_L 

30 


Obr. 6. Propojeni adaptâru s mikropo- 
âitaăem pomoci obvodu 8255 


Rutina ve strojovâm kddu jednorâzo- 
vd pfedte obsah vyrovnâvaci panrteti 
a uklâdâ jej do operadni pamdti od 
adresy 8032 (hex). Pfedte 512 bajtQ, 
tzn. celou vyrovnâvaci pamdf (448 
bajtQ) a pak datefch 64 bajtu, kterâ u2 
nejsou maskovâny. Pfedtenâ udaje se 
pak zobrazi pomoci programu napsa- 
nâho v BASICu. 

Po spudtâni programu a pak po 
ka2dâm stisknuti libovolnâ klâvesy je 
na obrazovku jednorâzovâ vypsân ob¬ 
sah vdech 448 bajtu vyrovnâvaci pa- 
mâti. Nejprve jsou vypisovâny zamas- 
kovanâ bajty, na konci jsou pak vypsâ- 
ny teletextovâ fâdky vdetnâ tff bajtQ 
obsahujicich râmcovy kdd, dislo maga¬ 
zin u a dislo fâdku. Zamaskovanâ bajty 
jsou na Spectru zobrazovâny jako (c), 
râmcov^ kdd jako apostrof. Za râmco- 
vym kddem nâsleduji dva adresovacf 
bajty, pak dateich 40 znakovych bajtQ 
teletextovâho fâdku a na konci jsou dva 
nebo tfi nulovâ bajty. Protoie vâtăina 
kddu pro pfenos alfanumerickych tele¬ 
textovych znakQ se shoduje s kddem 
ISO-7 (ASCII), mâly by byt nâkterâ 
fâdky ditelnâ (nebo alespoft jejich za- 
dâtek). Mâla by se zobrazit i zâhlavi 
nâkterych strânek. ftidici znaky ze 
sloupce O a 1 tabulky GO se zobrazi 
inverznâ. ftâdky, kterâ pfenââi grafickâ 
znaky nebo dopldkovâ informace, se 


samozfejmâ zobrazi pomoci ASCII zna¬ 
kQ tak, te nebudou. dâvat smysl. Dâle 
zkontrolujeme, zda prvni platny fâdek 
ve vyrovnâvaci pamâti zadinâ râmco- 
vym kddem (apostrof). Pokud tomu tak 
neni, Ize provâst nâsledujicf upravu 
zapojeni: vyvod d. 5 1014 odpojime od 
vyvodu d. 2109 a pfipojime jej k vyvodu 
d. 4 109. 

Pokud se budou zobrazovat stâle 
pouze neditelnâ fâdky, je tfeba hledat 
chybu v adaptâru. Ze zobrazovanych 
znaku je moinâ napf. usoudit, zda se 
pfenââi sprâvnâ văechny bity DO ai D7, 
zda funguje maskovâni pamâti atd. 

Konednâ nastaveni provâdime s pro- 
gramem TELETEXT. Pokud se pfi 
pouiiti testovaciho programu podafilo 
naditat alesport zadâtky nâkterych fâd- 
kQ, mâlo by byt moinâ po spuătâni 
programu TELETEXT nadist teletextovâ 
testovaci strânky (v deskâm vysilâni 
magazin d. 8, ve slovenskâm d. 3). 

Nejprve opakovanâ naditâme strân- 
ku s nâzvem ZKOUăKA SYNCHRONI¬ 
ZACE DEKODERU a nastavime pfesnâ 
kmitodet hodin, pfipadnâ urovert vzor- 
kovâni dat. Pak opakovanâ naditâme 
strânku OPTIMÂLNf SYNCHRONIZACE 
DEKODERU a pokud je tfeba, dosta- 
vime uroved vzorkovâni dat, pfipadnâ 
jeătâ jemnâ doladfme kmitodet hodin. 
Nakonec nadteme strânku ZKUăEBNi 
OBRAZEC TELETEXT a zkontrolujeme 
zobrazovâni văech znaku, mddQ zobra- 
zeni a dinnost văech funkci. 

Pokud je vâe v pofâdku, mQieme se 
pokusit zmenâovat zesileni vstupniho 
zesilovade (R5) a pfitom jemnâ doladit 
nastaveni komparâtorQ (R26, R13). Cfm 
kvalitnâjâi je signâl, tim menâi zesileni 
muieme nastavit. (Zpracovânim sig¬ 
nâlu s nizkou urovni se dâle sniii 
nepfiznivy vliv zmân stfedniho jasu 
a kolisâni urovnâ videosignâlu na 
sprâvnost dekddovâni.) Optimâlni am- 
plituda signâlu na rezistorech R7 a R8 
je asi 3 V, zâleii vSak na zdroji signâlu. 
V nâkterych pfipadech muie dâvat 
lepăi vysledky i amplituda 5 V. 

Pfi dâlkovâm pffjmu muieme dâle 
nahradit kondenzâtory C16 a CI6’ 
otodnym kondenzâtorem o kapacitâ asi 
500 pF a pokusit se pfi opakovanâm 
naditâni zkuâebnich strânek nastavit 
pfijem s co nejmenâim pod tem chyb. 


Konstrukdnî feăenl 


Cely adaptâr vdetnâ zdroje byl posta- 
ven na univerzâlni desce. Spoje byly 
vedeny vodidem se samopâjitelnou 
izolaci. Rozloieni soudâstek neni kritlc- 
kâ s vyjimkou vlastniho sâriovâ-para- 
lelniho pfevodniku a generâtoru hodin. 
Tyto obvody, tj. 105,106,107 a 1010 je 
vhodnâ umistit co nejblfie k sobâ. Dâle 
je tfeba napâjet tyto obvody z jednoho 
uzlu a tento uzel blokovat tantalovym 
kondenzâtorem 4,7 j*F. 

U văech 10 byl do napâjenf zapojen 
blokovaci kondenzâtor 68 nF (100 nF), 
u 102 byly pfipojeny na kladnou 
i zâpornou vâtev napâjeni. 

Jako LI byly pouifvâny neupravova- 
nâ civky ze zvukovych mf modulu ds. 
televizorQ. Pfesny podeţ zâvitG neni 
kriticky, hrubâ je moinâ oscilâtor dola¬ 
dit zmânou kapacity kondenzâtoru C21 
a C22. Pomâr C22/C21 by mâl byt 
pfibliinâ 1,5. 

Diody D2 a D3 byly pouiity z toho 
dâvodu, ie pfi experimentâlnim ovâfo- 
vâni byl generovany signâl GO stabil- 
nâjăi, nei pfi pouiiti zapojeni bez 
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PFîloha 1 tăchto diod. Jako C13 a C15 je vhodnă 

Testovacf program v BASICu a rutina pro pFeătenf obsahu vyrovnâvacf pamăti pouilt stabilnî kondenzâtory, nenf to 

vSak nutnâ podmlnka. 

PFedepsanâ typy IO Fady 74ALS, 74S 
a 74 muşi byt dodrJeny u 103, 106 
a 1015. Na mfstă 105 je moină pouift 
typ 7403. U ostatnlch obvodO Ize pouift 
Fadu 74S i 74. PFi pouiitf typO 74 
souăasnă na pozicfch 109, 1010, 101 
a 1014 mOie dojlt vzhtedem k velkămu 
zpoidănf k chybnă funkct săriovă- 
parafelniho pFevodnfku. V tomto pFîpa- 
dă je moină pFImo propojit vyvod 
6. 8 1010 s vyvodem 6. 10 1014. Pak 
je âdaptăr schopen pracovat spolehlivă 
i s tămito obvody, ale za urăitych 
okolnostf muie byt dekodăr nâchyl- 
năjăf k vyskytu chybnych Fâdku. 

Adaptor je s mikropoăitadem propo- 
jen trinâctizilovym plochym vodifcem 
dălky asi 35 cm. Vldeoslgnâl z tv pFi- 
jfmaăe je prtveden stfnănym nf kab- 
Ifkem dălky asi 1 m. 
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1 REM LOAO ""CODE 32768,100 
5 RANDOHIZE USR 32768 
10 RANDOHIZE USR 32791 
20 LET i=32818 
35 aS *. GO SUB 1000 
90 IF INKEY$=" THEN GO TO 90 
100 GO TO 10 

999 STOP 

1000 FOR j=i TO i+447 
1010 LET a=PEEK j 

1012 IF (a=39) AND <j<=i+446) THEN PRINŢ 
1018 IF a>=128 THEN LET a=a-128 
1020 IF a>=32 THEN PRINŢ CHR$ (a)} 

1030 IF a<32 THEN PAPER 0: INK 7: PRINŢ CHR*(a+64);: PAPER 7: INK 0 
1040 NEXT j 
1050 RETURN 


,z80 ; use z80 cpu 




.phase 

8000h 

; origin for ZX-Spectrue 



ţ teletext test prograe 




; i/o port assigneents 




: pa - data froe teletext 




; pc© - /go signal froe teletext 



ţ pc7 - enable signal to teletext 



; prograe eguates 


001F 


pa egu 

lfh 

ţ pio port a 

005F 


pc egu 

5fh 

; pio port b 

007F 


cr egu 

7fh 

; pio control register 

0093 


ce egu 

10010011b 

} control word for pio 

OOOF 


enbll egu 

00001111b 

; enable=l coaeand 

OOOE 


enblO egu 

00001110b 

; enable=0 coweand 



; startup procedure - ppi initialization 

8000 


init: 



8000 

3E 93 

Id 

a, cm 

} send control word to ppi 

8002 

D3 7F 

cut 

(cr),a 


8004 

3E OE 

ld 

a,enbl0 

; and reset enable signal 

8006 

03 7F 

out 

(cr),a 


8008 

18 0D 

jr 

eain 

; juep to eain progra* 



; waiting for go signal 


800A 


waitgo: 



800A 

I» 5F 

in 

a,(pc) 

{ check go bit 

800C 

C8 47 

bit 

0,a 

; active in low 

800E 

20 FA 

jr 

nz,waitgo 

; go not found 

8010 


waitgcl: 



8010 

0B 5F 

in 

a,(pc> 

; check go bit again 

8012 

CB 47 

bit 

0,a 

; now active in high 

8014 

28 FA 

jr 

z,waitgol 

; go active - wait 

9016 

C9 

ret 


; retum to cal Ier 



; get the teletext lines to buffer 

8017 


eain: 



8017 

F3 

di 


; disabie interrupts 

8018 

CD 800A 

caii 

waitgo 

; waiting for go signal is finished 

801B 

3E OF 

ld 

a,enbll 

; set enable signal to 1 

801D 

B3 7F 

out 

<cr),a 


80IF 

01 001F 

ld 

bc,pa 

; port ba se address+256* * of bgtes (*256) 

8022 

21 8032 

ld 

hl,buffer 

ţ store area for data 

8025 

ED B2 

inir 


; get data froe decoder 

8027 

01 001F 

ld 

bc,pa 

; port base address+256* • of bgtes 

802A 

ED B2 

inir 


; get data froe decoder 

802C 

3E 0E 

ld 

a,enbl0 

ţ reset enable signal 

802E 

D3 7F 

out 

(cr),a 


8030 

FB 

ei 


; enable interrupts 

8031 

C9 

ret 


; return to basic 

8032 


buffersdefs 

512 

ţ, buf fer area 


end 


Podminky dobrâho pfijmu 

Pro dobry pFfjem teletextu je nutnă 
splnănf tăchto dvou zâkladnlch pFed- 
pokladu: 

a) Vhodny televiznl pFijfmaă, ze kterâho 
zfskâvâme videosignâl pro zpraco- 
vânt v adaptăru. 

b) Dokonaly pFIjem pFfsluSnăho tv vy- 
silaăe. 

Pod oznaăenfm vhodny prijfmaC je 
myălen pFedevăfm pFijîmaă pro barev- 
ny obraz. V năkterych pFIpadech Ize 
pouift i dobfe seFfzeny ăernobfly pFi- 
jfmaă, pokud mâ vstupnl dll a obrazo- 
vou mezifrekcenci zapojeny obdobnâ 
jako barevnă pFijfmaăe. To znamenâ,. 
ie vhodnâ jsou ty is. pFijfmaăe, kteră 
majf obrazovou mezifrekvenci osaze- 
nou integrovanym obvodem A240D 
nebo A241D. ZahraniCnl televizory, za- 
pojenă obdobnă, budou patrnă takă 
vhodnâ, nebyly vSak autory vyzkouăe- 
ny. Rozhodnă se nehodî starăf typy 
televizorO, kterâ majl obrazovou mezi¬ 
frekvenci osazenou tranzistory nebo 
dokonce eiektronkami. 

Pokud je napâjeni televizoru FeSeno 
bez galvanickăho oddălenf od sită, je 
nutny oddălovacf transformâtor. 

Videosignâl Ize zfskat bucf ze stan- 
dardniho videovystupu năkterych tv 
pFijfmaâu (Oravan, Mânes, Aleă) nebo 
je nutnâ vystup do tv pFijfmaăe doplnit. 
Pokud nenf zaruăen dokonaly pFfjem 
nebo jde o dâlkovy pFfjem zahraniănfch 
vysflaău, pracujfcfch v normă CCIR- 
B a CC1R-G, je zvlâătnf videovystup 
nutny vidy. 



ftecroîi 


Obr. 7. Zapojeni videovystupu 


Syebols: 

8032 BUFFER 

007F 

CR 

0093 

CW 

OOOE 

ENBLO 

OOOF 

ENBL1 

8000 

IMIT 

8017 

HAIN 

001F 

PA 

005F 

PC 

800A 

WAITGO 

8010 

WAITG01 




Jednoduchă, ale osvădăenă zapojeni 
videovystupu je na obr. 7 , Toto zapoje- 
nf byio uspăănă vyzkouăeno u televizo¬ 
ru Oravan, Merkur a Pluto. Pro vyvede- 


No Fatal error(s) 
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ni signâlu na zadnî panel televizoru je 
pouzito nestînănâ lanko. 

Pro dobry pFîjem je dâle nutnă 
presnâ naladănî tv pfijîmaăe. Hrubă 
naladîme pFijîmaă podle svitu diody D5, 
jemnă doladîme podle zobrazovanâho 
Casu (ăîslice nesmî vypadâvat) a pak 
pFi opakovanâm zobrazeni năkteră 
zkuăebnî strânky. Optimâlnl naladănî 
se nemusî shodovat s optimâlnîm nala- 
dănîm obrazu. Pokud televizor nemâ 
vyvedeno dolacTovânî AFC, je v năkte- 
rych prfpadech nutnă AFC vypnout 
(vătăinou otevrenîm dvîFek predvolby 
nebo tlaăîtkem). 

Dalăî podmînkou pro pFîjem teletextu 
je, stejnă jako v prîpadă standardnîch 
dekodâru, dokonaly prîjem pFîsluănâho 
tv vysîlaăe. Prîjem musî byt bez duchu, 
barevny obraz nesmî snăzit a nesmî 
obsahovat ruăivâ moară. V pFîpadă 
snîienych nârokO je moină pripustit 
i Câsteănă zhorăeny signâl, moinost 
prîjmu je treba ovăFit. V tomto prîpadă 
je văak nezbytnă nutnă doplnit do 
televizoru zvlâătnî videovystup. 

Pro informaci jsou uvedeny dva 
pFîpady, kde bylo dosazeno vyhovu- 
jîcîho prîjmu teletextu i za zhorăenych 
podminek: 

a) snăienî barevnăho obrazu na hranici 
pozorovatelnosti, slabă moară, 
obraz ostry bez „duchu“, 

b) barevny obraz bez pozorovatelnăho 
snăienî, zfetelnă moară, obraz mîr- 
nă znehodnoceny „duchy“. 

V tăchto pFîpadech mohou Cas od 
ăasu vypadnout năkteră znaky nebo 
i celă râdky. 

Silnă zaruăenî obrazu „duchy" muie 
zpusobovat systematickă chyby v zo- 
brazovânî. Na urăită strânce napr. 
dochăzî ke stâle stejnă chybă, na jinych 
strânkâch se chyby nemusî projevit. 

Silnă snăienî a silnă moară v obraze 
vătăinou uplnă znemoinî pFîjem. 

Systăm je principiâlnă nejcitlivăjăî na 
impulsnî ruăenî (komutâtorovă motorky 
atp.). Toto ruăenî zpusobuje vypa- 
dâvânî znaku, râdku, skupin râdku 
a dokonce i celych strânek. Zpuso¬ 
buje i naătenî faleănych strânek, 
pFîpadnă muie zcela znemoinit pFîjem. 
I ruăenî, kteră v obraze nenî takFka 
postFehnutelnă, se projevuje tîmto 
zpusobem. Vătăinou jde o ruăenî ăiro- 
kopâsmovă, Ize je tedy identifikovat 
tak, ie televizor pFepneme na năktery 
obsazeny kanâl I. a II. pâsma pFîpadnă 
năktery niiăî kanâl III. pâsma, kde se 
pak toto ruăenî projevuje vyraznăjî. 
Jedinym Feăenîm je odstranănî zdroje 
ruăenî. Je moină pokusit se jeătă 
o pFîjem vhodnăho vysîlaăe na năkte- 
răm kanâlu v V. pâsmu, kde je vliv 
ruăenî vătăinou menăî. 

PFi pFîjmu muie samozFejmă ruăit 
i vlastnî mikropoăîtad (jak bylo popsâ- 
no v ăâsti „Navrhovanâ Feăenî"). 

Zâvăr 

Băhem pFîpravy ălânku doălo k nâ- 
sledujîcîm zmănâm: 

a) Byla vytvoFena novâ verze programu 
TELETEXT (verze 2.4), kterâ od- 
straftuje năkteră nedostatky verze 
1.9 a je rozăîFena o dalăî funkce. 

b) Pro dosaienf kompatibility ZX Spec- 
tra a Dodaktiku Gama je nutnă pro 
program TELETEXT v. 2.4 pFipojit 
signâl GO n^ bit PC2 (pQvodnă PCO), 
tj. na vyvod 16 (pOvodnă na 14) 
obvodu 8255A. Pro ostatnî poăîtaăe 
platî tabulka na obr. 6 beze zmăn. 

c) Ceskoslovenskâ televize vysîlâ od 
9. 1. 1989 teletexţ v Fâdcfch C. 7, 8, 


19, 20 (320, 321, 332, 333). Aby bylo 
moină nastavit potFebnou ăîFku sig¬ 
nâlu GO, je nutnă zkratovat rezistor 
R20 a pFîpadnă ke kondenzâtoru CI 5 
pFipojit paralelnă kondenzâtor s ka- 
pacitou 33 nF. Ostatnî souăâstky zu- 
stâvajî beze zmăn. 

d) Bylo zjiătăno, ie zesilovaăe STA 
mohou omezit tv signâl natolik, ie 
i pFi zdânlivă perfektnîm obrazu je 
pFîjem teletextu vylouăen. 


Seznam souCâstek 

Integrovană obvody: 

102 

UCY75107PC 

104,1021 

UCY74123N 

1011 

MHB8282 

107 

MH74164, MH74164S 

1019, 1020 

MHB2114 

1016, 1017, 


1018 

MH7493A 

108 

MH7490A 

1015 

MH74ALS00 

lOI, 1012, 


1013, 1014 

MH74ALS00, MH74S00, 


MH7400 

103 

MH74S00 

106 

MH7410 

1022 

MH74ALS10, MH74S10, 


MH7410 

105 

MH74S03, MH7403 

1010 

MH74ALS30, MH74S30, 


MH7430 

109 

MH74ALS04, MH74S04, 


MH7404 

10101 

MA7805 

Tranzistory: 


TI, T3, T3' 


T4, T5 

KC509 (KC508) 

T7 

KC507 

T2, T6 

BC179 (BC178) 

TI 01 

KF517 (KFY16, KFY18) 

Diody: 


Dl—D4 

KA206 

D101—D104 

KY132/80 

Dl 05 

KZ260/5V6 

D5 

LQ1732 

D106 

LQ1432 

Keramicki kondenzâtory: 

CI 7, C18 

47/TK754, 774, 794 

C23 

56/TK754, 774, 794 

C9, CI6' 

150/TK794, 754, 774 

C16 

220/TK794, 754, 774 

C24 

470/TK794, 774 

C6 

820/TK724, 794 

CIO, C49 

1nO/TK744, 724, 794 

C7 

4n7/TK783, 764, 744, 764 

C5, C14 

10n/TK783, 764 

Cil, C48, 


CI 2 

22n/TK783, 764 

CI', C8, C19, 


C20, C27—C46, 

CI03, CI04 

100n/TK783, 782 

Svitkovă kondenzâtory: 

C13 

68n/TC215—219 

C15 

100n/TC215—219 

C21 

470/TGL5155—A470/ 


/10/63 

C22 

680/TG L5155—A680/ 


/10/63 

Elektrotyt. kondenzâtory (tantai): 

C4, C25, 


C26 

4 ji7/TE131—135 

CI, C2, C3 

22 (»/TE131—135 

Elektrotyt. kondenzâtory 

CI01,CI02 

1G/TE 984 

CI 05 

100 u/TF 009 


Rezistory TR 212 
R6 

R4, R33, 

R102 
R9, R18, 

R19 

R24, R25, R26, 
R27, R29, 

R36 
R7, R8 


R3. R10, R12, 
R28, R31, 
R34, R35 

1K2 - 

R17 

3K3 

R15, 

R37—R44 

4K7 

R2 

5K6 

R1, R33 

18K 

R20, R22 

22K 

R14 

100K 

R11 

220K 

Rezistory TR 214: 

R101 

220 

Odporovâ trimry TP 041 

R13, R16, 

R5 

1K0 

R21, R23 

33K 

R32 

47K 

Konektory 

K2 

FRB TY5173211 

Trafo 

TR101 

220 V/2x8 ai 9V, 0,5 A 

Ostatnî materiâl 

LI 

cîvka dle textu (6 PK 855 
79,80) 

S101 

sîfovy vypfnafi 

Pol 01 

50mA/250V 

1 ks 

deska ploănych spojO 

1 ks 

chladiC pro MA7805 

1 ks 

sifovâ Srtura 

1 ks 

propojovacî Sftura pro 
video 

1 ks 

propojovacî Srtura pro 
interface 

1 ks 

pojistkovâ pouzdro 
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TELETEXT 


Ing. Lumir Pfibyl, Pavel Brychta, 

V. Noska 67,644 11 ZbySov 

Popis syst£mu WST urovnă 1.5 


1. Zâktadni technickg informace 


l.t TELETEXT je systâm prenosu informaci, ktery 
umoiftuje pfenââet strânky tvofenâ textem 
a grafickymi symboly. Teletextovy signâl se 
pfenââi v dosud nevyuiitych râdcich pul- 
snimkovâho intervatu. Pokud nen( teietext 
doplftkem televizniho obrazovâho signâlu, je 
moJny pfenos signâlu teletextu v libovolnych tv 
râdcich. 

1.2 Dekâdovanâ strânky se zobrazl bucf samo- 
statnâ (tj. mişto pfijimanâho televizniho obra- 
zu), nebo mohou byt proinuty (resp. vloieny) 
pffmo do televizniho obrazu. Do televizniho 
obrazu mohou byt takâ vloieny titulky nebo 
zpravodajskâ vstupy. Pozn.: Pt i prolnutf jsou tv 
obraz a pfisluânâ strânka zobrazeny soutasnâ 
pfes sebe, pri vloienl se vytvoff v obrazu okno, 
ve kterâm je zobrazena pffsluânâ dâst strânky. 

1.3 Kaidy datovy râdek teletextu pfenââf binârni 
signâl rychlosti 6,9375 Mblt/s. Tento systâm 
pfenosu Ize vyuiit v teieviznich systâmech typu 
625/50 s ăifkou pâsma pro pfenos videosig- 
nâlu min. 5,0 MHz. 

1.4 Kaidy datovy râdek pfenââi informaci pro 
synchronizaci dat, informaci pro ur£eni adresy 
a k6dy pro fâdek, ktery mâ 40 znaku. 

1.5 Na strânce Ize zobrazit ai 25 fâdkO po 40 
znacich, vCetnâ zvtâStnfho uvodnfho fâdku, 
ktery se nazyvâ zâhlavf, a poslednfho 
25. fâdku, ktery se zobrazl pouze za urfii- 
tych podminek (viz odst 3.4.4.2). 

1.6 Zâhlavf obsahuje pffdavhâ adrese vaci a fidici 
udaje, kterâ jsou pfenââeny mişto kddu prv- 
nich osmi znaku. Tyto udaje umoirtuji identifi- 
kovat strânku a dâle fidi zpusob jejfho zobraze- 
ni. Poslednich osm znaku ze zbyvajicich 32 je 
vyhrazeno pro zobrazeni reâlnâho Casu. 

1.7 Pfenos adresovych a ffdicfch bajtO vyuifvâ 
ochrany pomocf osmibitovâho Hammingova 
k6du. Tak Ize v jednom bajtu pfenâst fctyfi 

““"'informat ni bity, pfitemi jednoduchâ chyby' 
jsou v pfijfmati opraveny. (Jednoduchâ ctiyba 
znamenâ, ie v jednom bajtu je z osmi bitu 
jeden chybny). Pro pfenos kddu znaku je 
pouiito ochrany lichou paritou (sedm bitu je 
informadnfch, jeden bit je paritni), kterâ 
umoiftuje identifikovat jednoduchâ chyby. 

1.8 ftâdky, kterâ obsahuji pouze mezery, rtemusi 
byt pfenâSeny. 

1.9 Lze pfenâSet ai osm souboru strânek 
— magazinu, kaidy muie obsahovat ai 100 
strânek. 

1.10 Lze pfenâSet ai 3200 variant kaidâ strânky. 
Varianty jsou rozliăeny Ctyfmistnym sub- 
kddem v zâhlavf strânky (viz odst. 3.1.2 a 3.1.3). 

1.11 Kromâ alfanumerickych a grafickych znaku 
se pfenăSf jeStâ fidici znaky, kterâ slouii mimo 
jind pro nâsledujici funkce: 



Obr. 1. UmfstănI teletextovych 
datovych fâdku 
v televiznfm signâlu 


Obr. 2. Orovefi signâlu 
(tisla teletextovych FâdkO 
nesouhlasi se skutetnym 
umfstânfm v signâlu CST) 



referencnf 
mişto fâdkovâ 
periody 


rodkovy 

synchron. 

impuls 



Obr. 3. Synchronizace dat 
(mişto „referentei mişto fâdkovâ period/* patff 
..referentni mişto tv fâdku 1 *) 

a) volba jednâ z osmi barev znaku, 

b) volba jednâ z osmi barev pozadf. 

c) zobrazeni znaku s dvojnâsobnou vySkou, 

d) blikânf utitych znaku, 

e) skryti urftitych znaku, kterâ mohou byt 
uiivatetem zvklitelnâny. 
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2.1 Teievizni obrazovy signâl obsahuje v oblasti 
pulsnfmkovâho zatemftovacfho intervatu (viz 
obr. 1) Fâdky Cfslo 7 ai 22 (resp. 320 ai 335). 
Tyto fâdky jsou vyuifvâny pro rOznâ udeiy. 
Nâkterâ z tâchto fâdkO byty dosud voind a lze 
je vyuiit pro pfenos teletextovych datovych 
fâdku. V pffpadd CST se jednâ o fâdky feisk» 
19, 20 (332,333). Obecnâ je moinâ vyuiit 
libovolnych voinych fâdkO. 


2.2 Obrazovy fâdek je identifikovân jako teletex- 
tovy datovy fâdek pfitomnosti signâlu pro 
synchronizaci hodin (viz odst 2.9), po kterâm 
nâsleduje tzv. râmcovy kâd (viz odst. 2.10). 

2.3 Teletextovy fâdek pfenâSi binârni symboly 
(bity) ve formă signâlu o dvou urovnich typu 
NRZ (Non-Retum-to-Zero), vhodnâ tvarovand 
pomocf filtru. 

2.4 Uroveft signâlu je takovâ, ie logickâ nule 
odpovfdâ uroveft ternâ 0±2 % a logickâ jed- 
nitee odpovfdâ 66 (± 6) % z rozdflu mezi urovni 
bilâ a ternâ (viz obr. 2). Rozhodovacf uroveft 
leii uprostfed mezi Orovnf log. nuly a log. 
jednitky. Tato rozhodovaci uroveft se muie 
mânit fâdek po fâdku. 

2.5 Bitovâ rychlost pfenosu je 444x f„, kde f„ je 
radkovy kmitotet Bitovâ rychlost pfenosu je 
tedy 6,9375 Mbit/s (± 25.10*). 

2.6 Referentnim mfstem pro tasovănf dat je 
pfedposlednf logickâ jednitka ve siedu impul¬ 
sii pro synchronizaci hodin (viz obr. 3). 
Referentei mişto televizniho fâdku je v potovi- 
nd ampfitudy nâbâinâ hrany fâdkovâho syn¬ 
chron izafiniho impulsu. Referentni mişto pro 
tasovâni dat v signâlu na vystupu vysllate 
distributni sftâ je zpoidâno oproti refe- 
rentnimu mfstu televizniho fâdku o 12,0 + 0,4 

—1,0 mS. 

2.7 Spektrum signâlu dat je asymetrickâ 
s inflexnim bodem u kmitottu, ktery odpovfdâ 
polovitni bitovâ rychlosti. Nad kmitottem 
5,0 MHz mâ spektrum prakticky nulovou hod- 
notu. viz obr. 4 a 5. 
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Obr. 4. Pfibtiinâ spektrum impulsu dat 
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Obr. 6. PrGchod dat posuvnym registrem 


2.8 Datovy râdek tetetextu obsahuje 360 bitu. 
kterâ tvoff 45 bajtd. Prvnl tfi bajty maji sudou 
paritu a slouii pro synchronizaci pfijimafie. 
Zbyvajicich 42 bajtu mâ lichou paritu a pfenâăf 
adresu, ridici kddy a kddy znaku pro jeden 
râdek. Adresa a ridici k6dy jsou zabezpefieny 
Hammingovym kddem. 

2.9 Prvni dva bajty kaădâho datovâho fâdku jsou 
tvofeny posloupnosti jednifiek a nul 
(101010.. .j, indikujf pfitomnost datovâho fâd- 
ku a urfiuji Casovăni bitu v datovâm fâdku. 
V năkterych pripadech mo bou chybât v prvnim 
bajtu prvnl dvâ log. jednifiky. 

2.10 TTeti bajt kaidâbo datovâho fâdku obsahuje 
tzv. râmcovy kdd (11100100). Tento k6d siouli 
k synchronizaci jednotttvych bajtu v pfisiuănâm 
datovâm f âdku pTi dekddovâni. Lze ho identifi- 
kovat i v pflpadâ, te jeden jeho bit byl chybnâ 
pfijat. Obr. 6 ukazuje prOchod dat posuvnym 
registrem a jejich srovnâni se vzorem râmco- 
vâho kddu. Je zfejmâ, ie pro spolehiivâ urfieni 
pf itoronosti râmcovâho k6du stafii, aby souhia- 
siio nejmânâ 7 bitu. 

2.11 Ctvrty a pity bajt kaiddho datovâho râdku, 
daHMch osm bajtu v zâhiavi strânky (râdek 0) 
a văechny bajty pfenâăenâ v paketech 26 a 27, 
jsou chrânâny pomocf Hammingova k6du. 

2.12 Zbyvajici bajty v kalddm datovâm râdku 
pfenâăf kddy znaku. Bajt pro pfenos znaku 
obsahuje 7 bitfl urfiuiicfch znak (viz obr. 15 
Tabulka 60) a osmy bit pro zabezpefieni lichou 
paritou. Nejdfive se pfenâăi bit s nejnitii vahou 
(LSB). 


3. Uspof idânf strânek a fâdkâ 

3.1 Adrasovânf 

3.1.1 Kaidy datovy râdek obsahuje dva bajty 
chrânânâ Hammingovym kddem, z nichf tfi 
bity urfiuji fifsio magazfnu a pât bitu fiisio râdku 
(obr. 7). 6isk> magazfnu mttte byt v rozmezi 
1 al 8, magazin fi. 8 odpovidâ adrese 000, 
ostatni odpovfdajf vâze bitu podie obr. 7. Cfsto 
râdku mute byt v rozmezi 0 ai 31. V CSSR se 
vyuîivâ fâdku fi. 0 al 23, dâle 24, 26. 27 a 30. 
(Văechny teietextovâ datovâ râdky jsou viastnâ 
datovâ pakety. V literaturo se vâtâinou uifvă 
nâzvu râdek pro datovâ râdky s fiisty 0 ai 23 
a nâzvu paket pro datovâ râdky s itsly 24 ai 31). 
Adresa râdku odpovidâ pTimo vâze bitâ podie 
obr. 7. 

3.1.2 Datovâ râdky s fâdkovou adresou 0 jsou 
tzv. zâhiavi. Obsahuji navfc daiiich osm bajtu 
chrânfinych Hammingovym kfidem, kterâ ob- 
sahuii informafini bity vztahuifci se k pfisluănâ 
strânce vfietnâ dvoumfstnâho fiisla strânky 
a fityfmistnâho sub-kddu (viz obr. 7). Vyznam 
ostatnfch pfenâăenych bitu je popsân v odstav- 
ci 3.3.5. 

3.1.3 Kaidâ strana je urfiena jednomfstnym 
filsfem magazfnu (1 ai 8) a dvoumistnym 
fiisiem strânky (00 ai 99). Strânky se stejnym 
fifsiem magazfnu a stejnym fiisiem strânky 
mohou byt dâie rozliSeny fityfmistnym sub- 
kddem. To umoiftuje pTenââet ai 3200 variant 
jednâ strânky. Tento sub-k6d byt puvodnâ 
urfien k oznafienf fiasu vysiânf strânky. Proto se 
takâ nazyvâ tasovy kdd a jeho struktura tomu 
odpovidâ. Kdd je rozdâten na „hodiny" (00 ai 
39) a „minuty" (00 ai 79). V soufiasnâ dobâ se 
vyuifvâ maximâlnâ 50 variant jednâ strânky. 
Sub-kdd tâchto tzv. podstrânek je v rozmezi 
00 00 ai 00 50. 

3.1.4 Strânka muie byt vybrâna podie fiîsia 
magazfnu a Cfsla strânky nebo podie fifsia 
magazfnu, fiisla strânky a sub-kddu. 
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3.2 Vysitaci poTarfl 

3.2.1 Vysiiânf vybrartâ strânky zafiinâ pTenosem 
zâhiavi dând strânky (patfi k dând strânce) 
a konfif pTenosem zâhiavi nâsledujfcf strânky. 
Viechny datovâ fâdky pTenesenâ mezi tâmito 
zâhiavimi a majici stejnd fiisio magazfnu jako 
zâhiavi vybranâ strânky patff k tdto vybrand 
strânce. Strânky mohou byt vysilâny v tfbovol- 
nâm poTadi. Mohou byt pfenâăeny i nekom* 
pietnf strânky. Mohou byt prototeny datovâ 
Tâdky s jinym fiisiem magazinu. 

3.2.2 Datovâ fâdky patffcf k dând strânce mohou 
byt vysilâny v libovolndm pofadf. Aby byla 
zabezpefiena co nejufiinndjâi funkce dekoddru, 
doporufiuje se hned po zâhiavi prenâăet paket 
27 a pak pakety 26. Datovâ Tâdky vfietnâ 
zâhiavi se mohou opakovat, pTifiemi za pfatny 

. se povaiuje posfednf bezchybny vyskyt pfi- 
siufinâho datovâho Tâdku. Datovâ râdky, kterâ 
obsahuji pouze mezery, nemusf byt pfenâăeny. 

3.2.3 Datovâ Tâdky jsou vysilâny tak, aby byla 
vytvofenâ fiasovâ prodleva 20 ms (pro vyma- 
zâni strânkovd pa mâţi năkterych dekoddru) 
mezi vystânim zâhiavi a vysfiânim nâsledu- 
jicfch datovych râdkâ. 


3.3 ZâMavi 

3.3.1 Cisk) strânky, sub-kdd strânky a informace 
nutnd pro zobrazeni strânky jsou pTenâieny 
v tzv. zâhiavi (fâdek O). 

3.3.2 Synchronizace bitu. bajtu a adresovâni se 
provâdf v 1. ai 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.3.3 Prvnich osm bajtu datovâho fâdku pfenââe- 
jiciho zâhiavi (tj. 6. ai 13. bajt) je chrândno 
Hammingovym kddem viz obr. 7. Tyto bajty 
obsahuji informafini bity vztahujici se k pfi- 
siuănd strânce vfietnâ dvoufiiseinâho fiisla 
strânky a fityfisefndho sub-kddu. Dâle zâhiavi 
obsahuje 32 kddu, ve kterych se pTenâăi 
zâhiavi strânky urfienâ pro zobrazeni, tj. fiisio 
magazinu a strânky, datum, năzev informafini 
sluiby atd. Posiednich osm znaku je vyhrazeno 
pro zobrazeni reâinâho fiasu. PTiktady uspo- 
Tâdânt zâhiavi jsou na obr. 9. 

3.3.4 V 6. a 7. bajtu se pfenâăi fiisio strânky. V 8., 
9., 10. a 11. bajtu se pfenâăi sub-kdd strânky. 
Pfitom 8. bit devâtâho bajtu je povaiovân za 
fidici bit C4, a 6. bit popf. 8. bit jedenâcteho 
bajtu jsou povaiovâny za fidici bity C5 a C6. 
ftidici bity C6 a2 C14 jsou pfenâăeny v 12. a 13. 
bajtu. Uspofâdânt 6. al 13. bajtu v zâhiavi je na 
obr. 7. 
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3.3.5 ftfdict bity se povaiujf za aktivnf, jestliie 
majf hodnotu log. 1. 

3.3.5.1 Bit C4 je aktivni v pripadâ, ie informace 
prenâSenâ na danâ strânce jsou zcela rozdifnâ 
od informaci prenâSenych predchozi strânkou 
se stejnym Cislem magazinu a strânky. Pri 
aktivaci tohoto bitu nâsleduje interval 20 ms 
(viz 3.2.3), nei se zaCnou prenâSet data nove 
strânkv. 

3.3.52 Bit C5 je aktivnf v pfipadâ, ie dană strânka 
prenâSi tzv. zpravodajsky vstup („newsflash"), 
ktery se vloii do televizniho obrazu. VeSkery 
text -se zobrazi v tzv. vloienem m6du viz 
odst 4.2.10. 

3.3.5.3 Bit C6 je aktivni v pffpadâ, ie dană 
strânka prenâSi titulky. VeSkery text se opât 
zobrazi v tzv. vloienâm m6du viz odst. 4.2.10. 

3.3.5.4 Bit C7 je aktivni v pripadâ, ze je vhodnâjsi 
potlatit zobrazeni zâhlavi dane strânky. 

3.3.5.5 Bit C8 je aktivni v pripadâ, kdyi celâ 
strânka nebo jejt ââst obsahuje novâjSi infor¬ 
mace nei predchozi strânka se stejnym Cislem 
magazinu a stejnym Cislem strany. Strânka 
prenâăenâ s timto aktivovanym bitem nemusi 
byt kompletni, muie obsahovat pouze ty râdky, 
kterâ maji byt zmânâny. 

3.3.5.6 Bit C9 je aktivni v pripadâ, ie danâ 
strânka neni v 6'selnem poradi ostatnich 
prenââenych strânek. 


3.3.5.7 Bit CIO je aktivni v pripadâ, ie je 
tieba zabrânit zobrazeni danâ strânky. 

3.3.5.8 Bit Cil je aktivnf v pripadâ, ie je vhodnâ 
v dobâ âekâni na navolenou strânku zobrazo- 
vat zâhlavi vSech magazinu a ne jenom zâhlavi 
zvolenâho magazinu. 

3.3.5.9 Bity C12, 13, 14 voii zâkladni soubor 
znaku viz obr. 20. Tabulka jazykovych variant. 


3.4 Paket 27 

3.4.1 V paketu (râdku) 27 je moinâ pfenâSet 
adresy tzv. sdruienych strânek, kterâ jsou 
urâeny k automatickâmu uklâdâni do pamâti 
dekodâru. 

3.4.2 Synchronizace bitu, bajtu a adresovâni se 
provâdi v 1. ai 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.4.3 V 6. bajtu je uloien urâovaci kâd, ktery je 
chrânân Hammingovym kodem. UrCovaci kâd 
pro aktivaci funkce sdruienych strânek je 
0000. 

3.4.4. Adresovânf sdruienych strânek. Bajty 7 ai 
42 jsou usporâdâny do Sesti skupin po Sesti 
bajtech. Kaidâ skupina Sesti bajtu definuje 
adresu sdruienâ strânky. Tyto skupiny jsou 
oâisiovâny 0 ai 5 podle poradi pfenosu. Kdyi 
se nastavf osmy bit (MSB) 43. bajtu na 
hodnotu 1 (viz odst. 3.4.4.2), jsou takto defino- 
vâny sdruienâ strânky oznaâenâ urâitou bar- 
vou podle nâstedujici tabulky: 


CK 


skupina 0 „âervenâ" 
skupina 1 „zelenâ" 
skupina 2 ,.ilutâ" 
skupina 3 „modrozelenâ - * 
skupina 4 nevyuiitâ 

Skupina 5 seznam (index) sdruienych 
strânek 

3.4.4.1 Skupina dat pro definici sdruienâ strânky 
je tvoFena Sesti bajty, kterâ obsahuji: 


Cislo vztainâho magazinu 3 bity 

âislo strânky 8 bitu 

sub-kâd strânky 13 bitu 

ochrannâ bity Hammingova kâdu 24 bitu 


Poradi bitu je na obr. 10. Nemâ-li byt specifiko- 
vân sub-kâd strânky, bude prenâSenâ adresa 
sub-kâdu 3F7F (hex). PrenâSi-li se âislo strânky 
FF (hex) a sub-kâd strânky 3F7F, neni specifiko- 
vâna iâdnâ strânka. Bity, prenâSenâ jako relativ- 
nf Cislo magazinu, se pouiivaji pro definici Cisla 
magazinu sdruienâ strânky vzhledem k Cislu 
magazinu v 4. bajtu paketu 27. Nastaveni 
kterâhokoli z tâchto bitu na „1“ zpusobi doptnâni 
pfistuSnâho bitu v Cisle magazinu. V praxi to 
znamenâ provâst mezi odpovidajicimi bity Cisla 
magazinu paketu 27 a Cisla vztainâho magazinu 
log. operaci exclusive or. Vysledek je pak 
skuteCnâ Cislo magazinu sdruienâ strânky. 
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Obr. 9. Pffklad formâtu datovâho fâdku 
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Obr. 10. Formât paketu 27 
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Obr. 11. Formât paketu 30 


2 ° 2 1 2 2 

1_I 

âislo magazinu 


3.4.4.2 V bajtu 43 paketu 27 se pfenaăf informace 
pro fizeni sdruiovaci funkce. Tento bajt mâ 
Ctyfi bity dat a Ctyri bity ochrany Hammingo- 
vym kddem. Kdyi je osmy bit (MSB) nastaven 
na hodnotu 1, znamenâ to, ze sdruienâ strânky 
maji navazdvat na symboly pfegââenâ pake- 
tem 24. Pak je Cervenâ tlaCitko vidy funkCnf 
a pokud jsou bity 2,4 a 6 nastaveny na hodnotu 
1, jsou funkCni i tlaCitka zelene, ilutâ. resp. 
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modrozetenâ. TlaCitko pro navoleni seznamu 
(indexu) je vidy funkCni. (Tato tlaCitka jsou 
souCâsti ovIadaCu nâkterych dekoderu). Kdyi 
je bit 8 nastaven na 0, pak neexistuji sdruienâ 
strânky odpovidajici barevnym symbolum. 
a zamezi se zobrazenf obsahu eventuâlnâ 
pfitomnâho paketu 24. 

3.4.5 Bajty 44 a 45 obsahuji kontrolni slovo pro 
cyklickou kontrolu nadbyteCnosti (CRC) dat 
v paketech 0 ai 25. Zpusob generovâni tohoto 
slova je uveden v kap. 6. 

3.5 Paket 30 

3.5.1. V paketu 30 se pfenââi data, tykajici se 
televizni organizace. Pfenââi se pfibliinâ jed- 


nou za sekundu s Cislem magazinu 8. Formât 
paketu 30 je na obr. 11. 

3.5.2 Synchronizace bitu, bajtu a adresovânt se 
provâdi v 1. ai 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.5.3 V 6. bajtu je uloien urfiovaci kdd, ktery je 
chrânân Hammingovym kâdem. Pokud je druhy 
bit nastaven na 0, znamenâ to muitiptexo- 
vanou funkci teletextu v zatemftovacim interva- 
lu televizniho obrazovâho signâlu (viz odst. 
1.1). Pokud jsou bity 4, 6 a 8 nastaveny na 
hodnotu 0, jsou aktivni funkce popsanâ 
v nâsledujicich odstavcich 3.5.3.1 ai 3.5.3.6. 
Na jinâ kddy şystâm nereaguje. 

3.5.3.1 Bajty 7 ai 12 obsahuji adresu prvni 
vybranâ strânky. kterâ bude uloiena do pamâti 



data 

' 2 ° 2 ^ 2 2 2 3 ? 2 5 2 6 



dekodâru bez zâsahu uiivatele a je pak kdykoli 
zobrazitelnâ pomoci tlaCitka pro navoleni se- 
znamu (indexu) (viz odst 3.4.4), pokud 
nebyla zadâna jinâ strânka pomoci paketu 27. 
Pfi naCteni strânky bez paketu 27 nebo 
s nespecifikovanou strânkou pomoci skupiny 
5 (viz odst. 3.4.4) se opât naCte vySe uvedenâ 
prvni vybranâ strânka. 

Skupinâ dat pro definici prvni vybranâ strânky )e 
tvorena Sesti bajty, kterâ obsahuji: 


Clslo magazinu 3 bity 

Cislo strânky 8 bitu 

sub-k6d strânky 13 bitu 

ochrannâ bity Hammingova kddu 24 bitO 


Pofadi bitu je na obr. 11. Nemâ-li byt specifiko- 
vân sub-k6d strânky, bude prenâ&ena adresa 
sub-k6du 3F7F (hex.). PrenâSi-li se Cisto strânky 
FF (hex.) a sub-kâd strânky 3F7F, oeni specifiko- 
vâna iâdnâ strânka. 

3.5.3.2 Pro jednoznaCnou identifikaci programo- 
vâho okruhu Ize pouiit k6du v 13. a 14 bajtu. 

3.5.3.3 Bajt 15 definuje v krocich po pulhodino- 
vych intervalech rozdil mezi mistnlm Casem 
a svâtovym kooidinovanym Casem (UTC). 
Zâpornâ hodnoty odpovidaji mistnimu Casu 
zâpadnâ od Greenwiche. 

3.5.3.4 Modifikovanâ datum juliânskâho katen- 
dâfe MJO se pfenâăi v bajtech 16 ai18. Je to 
pâticifernâ Cisto, ktere se mâni o pulnoci 
(podte UTC); pfitom referenCnimu datu 31. 1. 
1982 odpovfdâ uda; MJO 45000. 

' 3.5.3.5 Bajty 19 ai 21 pfenââeji svâtovy koordino- 
vany Cas (UTC). Je to Sesticifemâ Cisto. kterâ se 
vysilâ po dobu nejbliiăi nâsledujici sekundy. 

3.5.3.6 Bajty 22 ai 25 jsou vyhrazeny pro 
informace tykajici se doprovodnâho teteviz- 
nfho programu. 

3.5.4 Od bajtu 26 ai do konce paketu 30 mohou 
byt vysiiâny obecnâ znaky ze zâkladni tabuiky 
G0. 

3.6 Paket 26 

3.6.1 Tento paket umoăftuje rozâifit soubor 
pfenââenych znaku oproti souboru v tabutce 
G0 o znaky z tabuiky G2 (obr. 16). Prakticky je 
to provedeno tak, ie po dekâdovâni tohoto 
paketu se na pfisluânych znakovych pozicich 
(v fâdcich 1 ai 24) zamdni puvodni znak (z 
tabuiky GO) na poiadovany znak z tabuiky 
G2. Na pozicich, kterâ majf byt pfepisovâny, 
jsou v datovych fâdcich 1 ai 24 vysiiâny 
nâhradni znaky z tabuiky GO tak, aby umoifto- 
valy pfijem i na d ekod ârech, kterâ nedekâdujf 
paket 26. Napf. mişto pismen s diakritickymi 
znamânky jsou vysilâna prisluănâ pfsmena bez 
tâchto znamânek. 

3.6.2 Synchronizace bitu, bajtu a adresovânf se 
prevădl v 1. ai 5. bajtu viz odşt. 2.9,2.10 a 3.1. 

3.6.3 V 6. bajtu je uloien urCovaci k6d, ktery je 
chrânân Hammingovym kâdem. K6dy 0000 ai 
1110 vCetnâ pfedstavujf pofadovâ Cisia paketu 
26, jejich2 maximâlni poCet je 15. Systâm 
nereaguje na k6d 1111. 

3.6.4 V 7. ai 45. bajtu vCetnâ se roziiâuje 13 
skupin dat po tfech bajtech. 


Obr. 12. Formât paketu 26 
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Obr. 13. PFlklady atfanumerickych a grafickych znakQ 


3.6.4.1 Ve skupinâ dat je kâdovâni provedeno 
takto: 

adresa pozice znaku 8 bitu 

popis mâdu 5 bitG 

data urCujicf znak z tabuiky G2 
(vybâr z doplftkovâ tabuiky) 
nebo 

znak z tabuiky G0 

(kompoziCni kâdovânf) 7 bitu 

ochrannâ bity Hammingova kPdu 6 bitu 

Pofadi bitu a uspofâdâni paketu 26 je na obr. 12. 

3.6.5 Adresovânf pozice pro znak se provâdi 
pomoci ieşti adresovaciCh bitu, kterâ mohou 
nabyvat 64 hodnot Dekadickâ hodnota 0 ai 39 
urCuje sloupec, 41 ai 63 urCuje fâdek 1 ai 23 
a hodnota 40 urCuje fâdek 24. Adresa pozice 
pro znak jedefinovâna explicitnâ skupinou dat, 
kterâ obsahuje adresu sloupce. Informace, 
obsaienâ ve skupinâ, kterâ definuje adresu 
fâdku, se vyuiivâ u vâech nâstedujfcich skupin, 
definujicich adresy sloupcu, ai do okamăiku, 
kdy pfijde novâ skupinâ s adresou fâdku. Prvni 
skupinâ dat muşi tedy definovat adresu fâdku. 
Pfi definici adresy fâdku jsou data, pfenâfienâ 
v 3. bajtu skupiny, ingnorovâna. I kdyi Ize 
pozice pro znaky definovat v libovolnâm 
pofadi, z duvodu co nejlepSfho vyuiitl paketu 
26 se tytp pozice âdresuji v pofadi zobrazovânf, 
tj. zleva doprava a shora dolii. 


3.6.6 Na obr. 16 je uveden Oplrty soubor znakO 
pro Ceătinu a slovenStinu. Tvofi jej zâkladni 
soubor (sloupce 2 ai 7) a dodatoCnâ znaky 
(sloupec 0 a 1). DodateCnâ znaky se kâduji 
dvojim zpusobem: kompoziânlm kbdovânfm 
anebo vybârem z doplrtkovâ tabuiky. 

3.6.6.1 Znaky s diakritickymi znamânky se tvofi 
sloienim znaku ze zâkladni tabuiky a diakritic- 
kâho znamânka z doplftkovâ tabuiky (kompo¬ 
ziCni kâdovâni). MajMi se takovâto sioienâ 
znaky objevit na pozici pro znak adresovanâ 
podle odst. 3.6.5, pak bity pro popis mâdu 
v rozsahu od 10000 do 11111 urCuji diakritickâ 
znamânko ze sloupce 4 doplftkovâ tabuiky 
( obr. 16). a to v postupnâm Cfseinâm pofadi. 
Znak ze zâkladni tabuiky, ktery mâ byt dopirtân 
diakritickym znamânkem, je definovân sedmi 
datovymi bity. Pokud- se poiaduje znak bez 
diakritickâho znamânka, je pouiito mâdu 

• 10000 . 

3.6.6.2 Mâ-li se objevit na adresovanâ pozici 
nâktery samostatny znak z doplftkovâ tabuiky, 
nabyvaji bity pro popis mâdu hodnotu 01111. 
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Sedm datovych bitu definuje znak z doplrtkove 
tabulky ( obr. 16) ze sloupce 2. 3. 5. 6. 7. 

3.6.7 Jelikoi muie byt pouiito vâtSfho poCtu 
paketu 26 na jednâ strânce, je tPeba oznaCit 
posledni paket. Toho se docili nastavenfm 
vâech bitu pro adresu râdku a popis mâdu na 
hodnotu 1, a to ve skupinâ dat pFenaSenâ v 40., 
41. a 42. bajtu koneCnâho paketu 26. Takovâto 
skupina vytvâFi ukonCovaci znaCku. Na data 
v 42. bajtu System nereaguje. Nevyuiite skupi- 
ny dat mezi posledni aktivni skupinou 
a ukonCovaci znaCkou se vyplni opakujicimi se 
daty ukonCovaci znaCky. 

3.6.8 Dva bajty, kterâ nâsleduji za skupinou 
obsahujicf ukonCovaci znaCku, je moine vyuift 
pro cyklickou kontrolu nadbyteCnosti (CRC) 
dat v paketech 26. Kontrolni siovo se vytvâFi 
stejnym zpusobem jako kontrolni siovo CRC 
v paketech 27 (viz kap. 6), ovSem za pouiiti dat 
z paketu 26. V pffpade chybejicicih dat se 
predpoklâdâ, ie to jsou znaky pro mezeru. 

4. Zobrazeni strânky 

4.1 Strânka zobrazenâ pfijimaCem obsahuje ai 
25 Fâdkâ. 

4.1.1 Zobrazene fâdkv odoovldajf paketum dat 
0 ai 24. Râdek 24 se zobrazi pouze tehdy, je-li 
pFenâăen take paket 27, a 8. bit 43. bajtu je 
nastaven na 1. Râdek 24 muie obsahovat 
barevne symboly, kter6 usnadrtuji ppfstup 
k sdruienym strânkâm. PPitom muie byt 
vyuiivâno pPisluSnych barevnych tlaCitek na 
jednotce dâlkoveho ovlâdâni. 

4.1.2 Na Pâdku 1 ai 24 je 40 mist pro znaky, na 
Pâdku 0 je 32 mist pro znaky. Casovy pPenos 
probihâ zleva doprava. 

4.2 Znaky zobrazovan£ na Pâdku 0 mohou byt 
vSechny znaky z tabulky GO. Znaky zobrazova- 
nâ na Fâdcich 1 ai 24 mohou byt vâechny znaky 
z tabulky GO a G2. Znaky mohou byt zobrazo- 
vâny v ruznych zobrazovacich mâdech. Volba 
jednotlivych mâdu je urCena impiicitnâ na 
zaCâtku jednotlivych Pâdku, explicitne se pro- 
vâdi v prubâhu zobrazovâni Pâdku pomoci 
ridicich znakâ ( obr. 17). Nâkterâ Pidici znaky 
maji bezprostrednf uCinek, jinâ pusobi ai na 
nâsledujicim mişte pro znak. Ridici znaky jsou 
vesmâs zobrazovâny jako mezery v barvâ 
pozadi. 

4.2.1 Barva znaku (alfanumerickych i grafickych) 
muie byt bilâ, ilutâ, modrozeienâ, zelenâ, 
purpurovâ, Cervenâ, modrâ a Cernâ. PPIsluânâ 
dvojice Pidicich znaku zâroveft pPepinaji zobra¬ 
zovâni v alfanumerickâm a grafickâm m6du. 

4.2.3 Novâ pozadi. PPedchâzejici barva znaku se 
stâvâ barvou novâho pozadf 

4.2.4 Cernâ pozadi. Nastavi se Cernâ barva 
pozadi. 

4.2.5 Spojitâ grafika. Grafickâ prvky pPilâhaji 
jeden k druhâmu bez mezery. 

4.2.6 Oddâlenâ grafika. Grafickâ prvky jsou 
oddâleny mezerami (prouiky) v barvâ pozadi 
(obr. 13). 

4.2.7 SevPenâ grafika. Sevfenâ grafika umoiAuje 
mezeru obsahujicf Pidici znak pPekryt grafic- 
kym znakem. Tento znak je definovân pouze 
v grafickâm mâdu. Je to posledni znak, ktery 
pPedchâzi pPed danou mezerou a jehoi 6. bit 
mâ hodnotu 1. PPitom nesmi dojit ke zmână 
alfanumerika/grafika nebo jednoduchâ/dvojitâ 
vySka. Znak sevFenâ grafiky se zobrazi jako 
spojity nebo oddâleny ve shodâ s nastavenym 
mâdem. 

4.2.8 Skrytf a zviditeinâni znaku. Znaky, kterâ 
jsou vymezeny pomoci tâchto Pidicich znaku, 
se zobrazujf jako mezery do doby, nei jsou 
zviditelnâny Cinnosti dekâdovaciho zaflzenf 
nebo zâsahem uiivatele. 

9 Blikânf a stâlâ zobrazeni (konec blikâni). Znaky, 
kterâ jsou vymezeny pomoci tâchto Pidicich 
znakâ, se zobrazujf stffdavâ jako znaky a jako 
mezery v barvâ pozadi. KmitoCet blikâni je 
urCen dekâdovacim zaPizenim. 

4.2.10 ZaCâtek vklâdâni a konec vklâdânf. Definu¬ 
je se Câst obrazu urCenâ pro vloieni do 

• normâlniho tv obrazu (titulky, zpravodajsky 
vstup). Tato funkce je chrânâna zdvojenym 
pfenosem Pidicich znakâ oznaCujlcfch zaCâtek 
a konec vklâdânf. 

4.2.11 Dvojitâ vyăka. Znaky jsou prodlouieny 
vertikâlnâ do prostoru nâsledujiciho Pâdku. 
Zobrazeni v druhâm Pâdku mâ stejnou barvu 
znakâ i pozadi jako prvnf Pâdek. PPipadnâ 
znaky pPenââenâ v druhâm Pâdku jsou ignoro- 
vâny. 

5. ZabezpeCeni dat Hammingovym 
k6dem 

PPenos nâkterych dat je proti chybâm zabez- 
peCen Hammingovym kddem. Pouiivâ se 
dvou modifikaci tohoto zabezpeCeni: 
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5.1 Jeden bajt obsahujicf CtyPi informaCnf bity 
a CtyPi zabezpeCovaci (ochrannâ) bity (varianta 
A). ZabezpeCovaci jsou bity 1, 3, 5, 7, 
informaCnf jsou bity 2, 4, 6, 8. ZabezpeCovaci 
bity se pro danou kombinaci informaCnfch bitu 
doplftujf podle tabulky Hammingova kâdu 
obr. 21a. PFi dekâdovânt se nejprve provedou 
nâsledujict operace: 

A - b8 xor b6 xor b2 xor bl 
B = M xor b4 xor b3 zor b2 
C = b6 xor b5 xor b4 xor b2 
D = b8 xor b7 xor b6 xor b5 xor b4 xor b3 xor 
b2 xor bl 

xor oznaâuje logickou operaci exclusive or 

Graficky jsou testovanâ bity vyznaCeny v tabul- 
ce obr. 21b. vysledky tâchto operaci se po- 
klâdaji za sprâvnâ tehdy, jestliie jsou rovny 
log. 1. Prakticky to znamenâ, ie vybranâ skupi¬ 
na bitâ muşi mit lichou paritu. Vyhodnocenf 
chyb se provâdi podle tabulky obr. 21c. 

5.2 Skupiny tPf bajtâ obsahujfci 18 informaCnfch 
bitâ a 6 zabezpeCovacich (ochrannych) bitâ 
(varianta B). ZabezpeCovaci jsou bity 1,2,4,8, 
16 a 24, informaCni jsou bity 3.5.6.7,9,10,11, 
12, 13,14,15, 17 ai 23. ZabezpeCovaci bity se 
pro danou kombinaci InformaCnich bitâ vy- 
poCtou podle nâsledujfcich vztahâ: 

bl = not (b23 xor b21 xor b19 xor b17 xor b15 
xor b13 xor bll xor b9 xor b7 xor bS xor 
b3) 

b2 = not (b23 xor b22 xor bl 9 xor b18 xor b15 
xor bl4 xor bll xor blO xor b7 xor b6 xor 
b3) 

b4 = noi (b23 xor b22 xor b21 xor b20 xor bl 5 
xor b14 xor b13 xor b12 xor b7 xor b6 xor 
bS) 

b* = not (bis xor b14 xor b13 xor b12 xor bll 
xor blO xor b9) 

b16 * noi (b23 xor b22 xor b21 xor b20 xor 
b19 xor bli xor b17) 

b24 = not (b23 xor b22 xor b21 xor b20 xor 
b19 xor b16 xor b17 xor b16 xor bIS xor 
b14 xor b13 xor b12 xor bll xor blO xor 
b9 xor bS xor b7 xor b6 xor bS xor b4 
xor b3 xor b2 xor bl) 

PPi dekâdovânt se nejprve provedou nâsledu- 
jfcf operace: 

A « b23 xor b21 xor b19 xor bl7 xor bIS xor 
b13 xor bll xor b9 xor b7 xor bS xor b3 xor 
bl 

B = b23 xor b22 xor bl 9 xor b18 xor bl 5 xor 
b14 xor bll xor blO xor b7 xor b6 xor b3 
xor b2 

C = b23 xor b22 xor b21 xor b20 xor bIS xor 
bl 4 xor bl 3 xor bl 2 xor b7 xor b6 xor bS 
xor b4 

D = bl5 xor b14 xor b13 xor b12 xor bll xor 
blO xor b9 xor b8 

E » b23 xor b22 xor b21 xor b20 xor b19 xor 
bit xor b17 xor bIS 

F=b24 xor b23 xor b22 xor b21 xor b20 xor 
b19 xor bIS xor b17 xor b16 xor bIS xor 
b14xorb13xorb12xorb11 xor bl 0 xor b9 
xor b8 xor b7 xor b6 xor bS xor b4 xor b3 
xor b2 xor bl 

xor oznaâuje logickou operaci exclusive or 

Graficky jsou testovanâ bity vyznaCeny v tabulce 
obr. 22a. Vysledky tâchto operaci se poklâdajl za 
sprâvnâ tehdy, jestliie jsou rovny log. 1. To 
znamenâ, ie vybranâ skupina bitâ muşi mit 
lichou paritu. Vyhodnocenf chyb se provâdi podle 
tabulky obr. 22b. 

6. Vytvofenl kontrolnlho slova 

VytvoPeni kontrolnlho slova je znâzomâno na 
obr. 14. Na vstup 16-ti bitovâho posuvnâho registru 
je pfivâdân vysledek souCtu modulo 2 extemfho 
vstupu a obsahu 7., 9., 12. a 16. stupnâ registru. 
Na zaCâtku se registr vynuluje ve văech stupnfch. 
Bâhem sekvence 8192 hodinovych impulsâ Je 
vstuppj signâl tvoPen prvnimi 24 znakovymi bajty 
(24 x 8, tj. 192 bitâ) ze zâhlavf (Pâdku 0) a nâsle- 
dujicmi znakovymi bajty z Pâdku 1 ai 25 (40 
x 8 x 25, tj. 8000 bitâ), a to pFi normâlnfm poPadi 
pPenosu. Chybl-li nâktery paket, bere se jako by 
obsahovai vesmâs znaky <SP> (mezera) (20). 

V kaidâm bajtu je pofadi bitâ b8 ai bl. Toto 
poPadi, kterâ je opaCnâ nei pPi vysilânl ostatnfch 
bajtâ textu, slouii pro usnadnâni Cinnosti deko- 
dâru, ktery vyuiivâ data uloienâ ve strânkovâ 
pamâti. 
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Obr. 16. Tabulka G2 

(1) Sloupec 4 obsahuje diakritickâ znamânka, 
kterâ se pPiPazuji znakâm z tabulky G0 (obr. 15). 

(2) Znak 7/15 je interpretovăn stejnâ jako v tabul¬ 
ce G0. K6d 4/0 je „nulovâ znamânko", coi 
umoiAuje zobrazeni libovoinâbo symbolu z ta¬ 
bulky G0 bez diakritickâho znamânka s vyuiitfm 
paketu 26. Kâdy 4/9 a 4/12 jsou rezervovâny pro 
budouci vyuiiti. 
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Obr. 18. Uplny' soubor znakO pro deitinu 
a slovenătinu 


Poznămka: Tento soubor znakQ byl dopl- 
năn jeătă o znaky 0 a 0. 

Na konci procesu plnâni registru je obsah 
registru tvoPen kontrolnim slovem zâkladnf strân¬ 
ky. 

PoPadi pPenosu skupiny se dvâma bajty, kterâ 
vznikne 16-ti bitovou cyklickou kontrolou nadby¬ 
teCnosti danâ strânky, je bit 9 ai 16 (CRC A) 
a potâ bit 1 ai 8 (CRC B) vCetnâ. 







CeStina/ Sv6d- 
na/ Stina 
stovenSti- 
na 



ES vyhrazeno pro nârodni vorionty znaku 
-) v soucasne urovni teletextu se nepcuăvajt 
™> pfedpoklâdâ se na zocâtku kazdeho râdku 

cer no pfedstavpje barvu znaku, bilă pfedstovuje barvu pazodi 

(znaky ve slovpci 4 a 5 mohou byt zobrazeny / v grafickâm mPdu — tzv. pronikârtf 

alfanumerickych znakO) 

Obr. 15. Tabulka GO 


DOPLNKOVY MOD OKAMZfTE 
ZOBRAZENf P0SOBEN! 


anglidtina 

nâmdina 

SvâdStina, 

finStina 


francouzStma 
portugalStina, 
Span&âtina 
CeStina, 

1 1 slovenStina 
1 | 1 matfarStina 


Vychodni 

Evropa 


po)§tina 

nOmdina 

srbochorvat- 

Stina 

italStina 

francouzStina 

portugalStina, 

SpanSIStina 

âeătina, 

slovenStina 

madarStina 


Obr. 20. Tabulka jazykovych variant 


ACNi BITY 


M6D 

ZOBRAZENl 

[ OKAMZlTE 
! POSOBENf 

Atfanumerika 

bftâ 

Cervenă 

zetenâ 

modrâ 

ilutâ 

purpurovâ 
modrozetenâ 
Cemâ * 

! 

Za6. fâdku 

Sporită (grafika) 

Zad. râdku 

1/9* 

Cemâ pozadf 

Za£. fâdku 

1/12 

Zvkiitetnânf 

znakO 

Zai. fâdku 
ZâsahuS- 
vatete*** 

Stâte zobrazen! 
konec blikâni 

ZaC. fâdku 

0/9 

Konoc vklâdâni 

ZaO. fâdku 
0 /10 **** 

Normâfnî vySka 

ZaC. fâdku 

0/12 

Uvolrtenâ grafika 

Zai. fâdku 




modrâ 

Sută 

purpurovâ 

modrozetenâ 

Cemâ 


OddStenâ (grafika) 1/10 * 


Novâpozadf 


0/1 0/2 0/3 Skrytf znakO 
0/4 0/5 0/6 
0/7 1/1 1/2 
1/3 1/4 1/5 
1/6 1/7 0/0 
1/0 


0 / 10 **** 


Blikinf 


ZaCâtek vklâdânl 


Dvojitâ vyâka 


Sevfenâ grafika 


* Tyto fkUci znaky mohou pusobit okamiită nebo nâsiednâ 
** Aktuâlnf barva znakO je vzata jako novă barva pozadf 
** ZviditeteOra skrytychznakO nacelă strâncejnufebytprovedenozâsahem uSvatote 
** Tyto ffcficf znaky jsou pfenâSeny zdvojenâ; prvnf pfirsoW nâsfednâ, druhy okamWâ 

Obr. 17. Tabulka pOsobenl fidicfch znakO 




Obr. 21a. Tabulka Hammfngova kddu 
pro jeden bajt 


mikroelektronika 
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Obr. 21b. Testyna lichou paritu (varian¬ 
ta A) 


Vystedky 
testu parity 

Vyhodno¬ 

ceni 

Ciimost 

A, B, C 

D 

VSechny 

sprâvnS 

Sprâv- 

nd 

2 âdnâ 

chyba 

Poui/t 

informainl bity 

VSechny 

sprăvnS 

Ne- 

sprâv- 

n6 

Chyba 

vb7 

Pouift 

informatnî bity 

Ne vSech 
ny 

sprâvn§ 

Sprâv- 

n6 

Năkolika- 

năsobnâ 

chyba 

Odmitnout 
informaCni bity 

Ne vSech 
ny 

sprâvnS 

Ne- 

sprâv- 

n4 

Jednodu- 

châ 

chyba 

Srovnânim s tabulkou 
obr. 21b identifikovat 
chybu. Jestliîe je v in- 
formafinim bitu, pak 
opravit. Pouift infor¬ 
maCni bity. 


Obr. 21c. Tabuîka vyhodnoceni chyb 
(varianta A) 



A 

B 

c 

D 

E 

F 

bl 

0 

X 

X 

X 

X 

0 

b2 

X 

0 

X 

X 

X 

0 

b3 

0 

0 

X 

X 

X 

0 

b4 

X 

X 

0 

X 

X 

0 

b5 

0 

X 

0 

X 

X 

0 

b6 

X 

0 

0 

X 

X 

0 

b7 

0 

0 

0 

X 

X 

0 

b8 

X 

X 

X 

0 

X 

0 

b9 

0 

X 

X 

0 

X 

0 

blO 

X 

0 

X 

0 

X 

0 

bll 

0 

0 

X 

0 

X 

0 

b12 

X 

X 

0 

0 

X 

0 

b13 

0 

X 

0 

0 

X 

0 

b14 

X 

0 

0 

0 

X 

0 

b15 

0 

0 

0 

0 

X 

0 

b16 

X 

X 

X 

X 

0 

0 

b17 

0 

X 

X 

X 

0 

0 

b18 

X 

0 

X 

X 

0 

0 

b19 

0 

0 

X 

X 

0 

0 

b20 

X 

X 

0 

X 

0 

0 

b21 

0 

X 

0 

X 

0 

0 

b22 

X 

0 

0 

X 

0 

0 

b?3 

0 

0 

0 

X 

0 

0 

b24 

X 

X 

X 

X 

X 

0 


0 — Testovanâ bity 

Obr. 22a. Testyna lichou paritu (varian¬ 
ta B) 


7. Zâv&r 

ProtoZe p/i oznaCovâni /âdku, bajtu a bitu je 
pouilvâno Cfslovânl od 0 vCetnâ, mohou vznik- 
nout zdânlivd nesrovnalosti mezi timto popisem 
a jinymi Clânky, kterâ se zabyvajf touto problema- 
tikou. Dâle je t/eba vzft v uvahu, ie cely systâm je 
stâle jeStâ ve vyvoji a muie se v nâkterych 
detailech mânii A koneCnâ, omlouvâme se za 
vSechny nep/esnosti a nedostatky (nap/, netiplnâ 
tabulka G2, popis paketu 30 atd.), kterâ jsou 
zpusobeny tfm, ie se p/es veăkerou snahu 
nepoda/ito zajistit pot/ebnâ prameny. 

Zâvârem bychom chtftli podâkovat ing. Ji/imu 
ReCkovi z Ceskoslovenskâ televize za velice 
uCinnou pomoc p/i sestavovăni tohoto Clănku. 


Vysledky 
testu parity 

Vyhodno¬ 

ceni 

Cinnost 

K B, C, 

D,E 

F 

VSechny 

sprăvnC 

Sprâv- 

nC 

2 âdnâ 

chyba 

Pouift 

informaCni bity 

VSechny 

sprâvnă 

Ne- 

îprâv- 

nfi 

Chyba 

vb24 

Pouift 

informaCni bity 

Ne vSech¬ 
ny 

sprâvnC 

îprâv- 

nC 

NCkolika- 

nâsobnâ 

chyba 

Odmitnout 
informaCni bity 

Ne vSech¬ 
ny 

sprâvnC 

Me- 

sprâv- 

n£ 

Jednodu- 

châ 

chyba 

Srovnânim s tabulkou 
obr. 22.a) identifikovat 
chybu. Jestliie je v in- 
formaCnfm bitu, pak 
opravit Pouift infor- 
maCnf bity. 


Obr. 22b. Tabulka vyhodnoceni chyb 
(varianta B) 
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Program TELETEXT mâ za ukol 
zabezpeCit takovâ zpracovânî dat pFi- 
châzejfcich z adaptâru, aby vyslednâ 
soustava, vyuifvajfci adaptâru a mikro¬ 
poCftaCe pro pFfjem teletextu, pinita 
vSechny funkce bâinâ u standardnich 
dekodâru. Zâkladnf technickâ data 
programu ve spojenf s adaptârem jsou 
uvedena v nâsiedujicich bodech: 

1. Program umoăftuje pFfjem teletextu 
systâmu WST urovnâ 1.5. Je vyuăi- 
vâno paketu 26 a 27. Paket 30 
a kontrolni slova CRC nejsou vyuăity. 

2. Zobrazovanâ strânka obsahuje 24 
râdku po 40. znacfch. Je moinâ 
zobrazit i doplfikovy 25. Fâdek. 

Jsou zobrazovâny vSechny znaky 
nărodnfch abeced Ceătiny/slo- 
venStiny, nâmCiny a SvâdStiny. 


16 mikroeiektronika 


3. Program umoirtuje vyuift vSech 
zvlâStnich funkci bâinych standard¬ 
nich dekodâru (volba strânky, pfimâ 
volba podstrânky, podrieni rotujfcf 
podstrânky, zobrazeni v dvojitâ 
vySce, skrytâ zobrazeni). 

4. Program neumoiftuje vklâdâni tîtul- 
ku do televizniho obrazu. 

5. Program umoirtuje tisk zvolenych 
strânek. 

Zâkladnf poiadavky na Cinnost pro¬ 
gramu TELETEXT byly stanoveny srov- 
nânim se standardnfmi dekodâry tele¬ 
textu. * 

V prvnf Fadă je treba, aby program 
umoînil plnohodnotnâ zobrazovâni vy- 
silanych strânek, tj. aby sprâvnă reago- 
vai na pfenâSenâ fidici kâdy a k6dy 
alfanumerickych a grafickych znaku. 
Dâle musf sprâvnâ vyhodnocovat infor- 
mace, obsaienâ v doplftkovych pake- 
tech. 

Za druhâ je nutnâ, aby uiivateli 
poskytl stejny nebo takrka stejny kom- 


fort pri ovlâdâni zvlâStnich funkci deko- 
dâru. Tyto funkce jsou popsâny dâle. 

Obecnâ moinosti grafickâho zpraco- 
vâni teletextovâ strânky vyplyvaji 
z Clânku „TELETEXT — popis...“. 
Program je schopen z pFijatych infor- 
maci tuto strânku vârnâ zobrazit vCetnâ 
zobrazeni znakG nârodnich abeced. 
Vyjimku tvoFf ty Câsti strânky, kde je 
pouiita funkce blîkâni (odst. 4.2.9 CI. 
..TELETEXT — popis...“). Uvedenâ 
Câsti budou zobrazovâny tak, jako by 
tato funkce nebyla pouiita. Dâle mâie 
u urCitych Câsti strânky, vytvorenych 
pomoci grafickych znaku, dochâzet 
k nepresnostem v barevnâm podâni. 
Tyto chyby v zobrazeni vznikajf pri 
pFekryti rastru teletextovâ strânky (24 
fâdkâ po 40 pozicich pro znaky) 
s rastrem mikropoCftaCe Sord a Spec- 
trum (24 Fâdkâ po 32 pozicich pro 
znaky). U mikropoCftaCe Sharp k tâmto 
chybâm nedochâzf. 






25. doplrtkovy Fâdek, ktery zobrazujf 
standardni dekodâry pod kompletni 
strânkou, je moinâ vyvolat stisknutfm 
klâvesy <SP>. PFftomnost tohoto Fâdku 
indikuje znak ,>* v levâm hornim rohu 
obrazu. Doplrtkovy Fâdek se zobrazf na 
mlstă zâhiavi strânky. 

Vzhledem k tomu, ie videostgnâl 
z mikropoâftafie nenf synchronizovân 
s pfijfmanym televiznfm videosignâlem, 
nenf moinâ ani pFi vyuiitf vhodnâho 
prepinaCe realizovat ty funkce, bâinâ 
u standardnfch dekodâru, kterâ vyza- 
dujf vloienf (pFfp. prolnutf) teletextovâ 
strânky nebo jejf rtâstr do tefeviznfho 
obrazu. To se tykâ napF. vloienf Caso- 
vâho udaje, tituikovânf poradu, vloienf 
tzv. zpravodajskâho vstupu, prolnutf 
teletextovâ strânky do tv obrazu, vyuiitf 
funkce „budlk“ atd. PFi prfjmu s vyuii¬ 
tf m dvou televizoru je moinâ na jed- 
nom zobrazovat televiznf porad, na 
druhâm se pak objevujf prfsluănâ titut- 
ky. Obdobnâ je moinâ nepFfmo realizo¬ 
vat i funkci „budfk". 

Zâkladnf funkci u kaidâho dekodâru 
je funkce, kterâ umoirtuje zvolit poza- 
dovanou strânku. Strânka se volf za- 


/yvod obvodu 
8255A 

Signăl 

Signăl 

(Centronics) 

18 

PB 0 

Data 0 s 

19 

PB 1 

Data 1 

20 

PB 3 

Data 2 

21 

PB 3 

Data 3 

22 

PB 4 

Data 4 

23 

PB 5 

Data 5 

24 

PB 6 

Data 6 

25 

PB 7 

Data 7 

15 

PC 1 

BUSY 

11 

PC 6 

STR 

07 

GROUND 

GROUND 


Obr. 2. Pfipojeni tiskâmy k mikropo- 
6itaci ZX Spectrum 


dânfm tFfcifemâho rtfsia <ţj. vrtetnâ rtfsla 
magazfnu). Tuto funkci samozfejmâ 
program umoirtuje a to kdykoli, pokud 
se nachâzf v zâkladnfm reiimu (tj. 
nejsou apiikovâny funkce HOLD, DOU- 
BLE nebo FAST SEARCH, viz dâle). 
Jednotiivâ Cfslice se objevujf postupnâ 
v levâm hornfm rohu obrazu vedle 


pfsmene ,P‘ nebo znaku >. Pokud 
dojde k chybâ pFi zadâvânf, staâi 
doplnrt zbyvajfcf pozice libovolnymi 
âfslicemi, stisknout <CR> a provâst 
novou volbu. Na rozdfl od standardnfch 
dekodâru vyiaduje program potvrzenf 
volby klâvesou <CR>. Po tomto potvr¬ 
zenf se vedle zvolenâho rtfsla strânky 
objevf mâniei se Cfsla prâvâ prijatych 
strânek. PFitom nejsou zobrazovâna ta 
rtfsla strânek, kterâ nenâsledujf v po- 
stupnâm dfselnâm poFadf. Jsou to 
vâtâinou prehiedovâ strânky, kterâ se 
vysftajf nâkolikrât v jednom cyklu, nebo 
strânky, prenâăejfcf titulky. Jakmile 
dojde k nalezenf strânky se stejnym 
Cfslem jako jezadanâ, dfsla pfijfmanych 
strânek zmizf a zobrazf se poiadovanâ 
strânka. Jestfiie je tato strânka zne- 
hodnocena ruâenfm, je moinâ provâst 
opakovanâ naâtenf klâvesou ,A‘. 
PFipadnâ rotujief podstrânky se naâftajf 
automaticky. 

Program takâ umoirtuje zrychlenou 
volbu pomocf tzv. sdruăenych strânek. 
Tato moinost je indikovâna znakem 
( >‘ v levâm hornfm rohu obrazu. Po zo- 
brazenf 25. Fâdku klâvesou <SP> je 
moinâ provâst klâvesou ,1* ai ,4‘ zrych¬ 
lenou volbu podle prehledu v 
25. Fâdku. 

Pomocf klâvesy ,1* je moinâ pFfmo 
volit tzv. indexovou strânku, tj. strânku 
se zâkladnfm pFehledem. 

Dalâf bâinou funkci je zobrazeni 
reâlnâho rtasu. Cas byvâ zobrazovân na 
poslednfch osmi poziefeh prvnfho Fâd¬ 
ku (zâhlavf) nejâastâji ve tvaru 
00.00.00. Program umoirtuje prubâinâ 
zobrazeni âasu, pouze pFi naâteni 
strânky se Cas zastavf na dobu potreb- 
nou pro zpracovânf informacf (Fâdovâ 
stovky ms). Zobrazeni rtasu je potlaâe- 
no pFi vyuiitf zvtâătnfch funkci DOUBLE 
a TIME CODE 

Pod oznaâenfm zvlââtnf nebo do- 
plrtkovâ jsou u standardnfch dekodâru 
bâinâ nâstedujfcf funkce: 

— Dvajitâ vyăka (DOUBLE) — umoirtu¬ 
je pro lepSf roztiăenf zobrazit homf 
a dolnf polovinu zvolenâ strânky 
v dvojnâsobnâ vyăce. 

— Podrienf rotujfcf podstrânky 
(HOLD) — pokud jsou podstrânky 
zobrazovâny po pFftiS krâtkou dobu, je 
moinâ touto funkci jejich rotaci pFeru- 
Sit a podriet zobrazovanou pod strânku 
na poiadovanou dobu. Tuto funkci je 
moinâ vyuift S u normâlnfch strânek, 
a to tehdy, kdyi vlivem ruSenf dochâzf 
k âastâmu pFepisovânf naâtenâ strânky 
strânkou faleânou. 

— Zobrazenf skrytych znaku (RE- 
VEAL) — tato funkce umoirtuje zvi- 
ditelnenf znaku, kterâ jsou pFi prvnfm 
zobrazenf skryty (zobrazeny jako meze- 
ry). Vyuiîvâ se pPedevSfm pro skrytf od- 
povâdf u kvfzO nebo pro skrytf informa¬ 
cf, urâenych pouze pro nâkterâ uiivate- 
le. 

— PFfmâ volba podstrânek (TIME CO¬ 
DE) — pomocf tâto funkce je moinâ 
zvolit Cfslo poiadovanâ podstrânky ob- 
dobnâ jako Cfslo zâkladnf strânky (vol¬ 
ba je moinâ pouze u nftkterych pod¬ 
strânek, tato moinost byvâ vyznaâena). 
Volba se provâdf po zvoleni âîsia 
strânky. Cfslo podstrânky se vâtâinou 
zobrazf na mfstâ reâlnâho âasu. 

Tfmto zpusobem se zadâvâ i Cas pro 
aplikaci funkce „budfk**. Strânka, na 
kterâ je budfk zobrazen, je viastnâ 
sioiena z rotujfcfch podstrânek. iejichi 
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âlsla odpovfdajf reâlnâmu 6asu. To 
znamenâ, ie tato podstrânka se zobrazl 
v dobâ, kdy se jejl ftlslo bude shodovat 
s nastavenym Casem. 

Program umoiftuje realizaci vSech 
tâchto funkcl. Jejich pFesnâ pouiitî je 
popsâno v ââsti Popis oviâdânt. 

Program navlc umoiftuje vytisknout 
zvolenou strânku dvâma zpusoby. 
U tiskârny se pFedpoklâdâ rozhranl 
Centronics, nejlâpe standard IBM nebo 
Epson. Nastaveni zpusobu tisku 
a viastni tisk se provede pFikazy, kterâ 
jsou dostupnâ po zobrazeni menu (viz 
6âst Popis ovlâdâni). Tabulka propoje- 
nl tiskârny a interfejsu s obvodem 
-8255A pro mikropoâftaâ ZX Spectrum 
]e na obr. 2. ' 

Popis programu TELETEXT 

Programovâ vybaveni bylo vytvofeno 
pro mikroprocesor Z80 a impiemento- 
vâno na mikropoâltaâe Sord M5, Sharp 
MZ 800 a ZX Spectrum. Program je 
napsân v makroassembleru Z80, zdro- 
jovy text mâ dâlku asi 130 kB. PFeloie- 
ny strojovy k6d mâ dâlku asi 14 kB, 
z toho je asi 6kB viastni program, 
zbytek tvoFI tabuiky a data pro dekâdo- 
vâni. 


Celkovy vyvojovy diagram programu 
je na str. 17. Pro prehlednost jsou 
zakresieny pouze hiavnf vazby mezi 
jednotlivymi bioky. 

Hlavni Câsti programu TELETEXT je 
procedura IDLE, kterâ zajiâfuje 
vzâjemnâ propojenf a volâni jednotli- 
vych blokO programu a dâie zajiăfuje 
i nâkterâ stâle se opakujici funkce 
(bioky TIME, PAGE). 


StruCny popis funkcl jednotlivych 

bloku: 

INICIALIZACE — zâkiadnl inicializace 
systâmu. 

UNEO, UNEI — vyhledâvâ a dekâduje 
adresu fâdku, naâftâ zâhlavf zvolenâ 
strânky. 

SEARCH — vyhledâvâ râmcovy (fra- 
ming) k6d. 

SCAN-GO — Cekâ na ukondeni nej- 
bliiâlho signâlu GO a soutasnâ po- 
mod bloku CONST testuje klâvesnici 
na stisk klâvesy. Po ukonfienf GO 
pFesune date z vyrovnâvacl pamâti 
adaptâru do operaftnî pamâti mikro- 
podtade pro dalâl zpracovânl. 

CONST — testuje klâvesnid. 


CARRY — test vtajky indikujicl stisknutf 
klâvesy. 

INTERPRETER — volâ pFIsluânou ruti- 
nu z BLOKU OVLÂDĂNj. 

BLOK OVLÂDÂNI — obsahuje rutiny 
nutnâ pro provâdănf pFlkazu uiivate- 
le (DOUBLE. HOLD, REVEAL, 
CLOCK, TIME, CODE, FAST, 
SEARCH, INDEX, MENU, PRINŢ, 
HELP, SETUP, EXIT). 

CHECK — volâ pFisiusnou rutinu TIME 
a PAGE. 

TIME — porovnâvâ systâmovy tas 
s udajem o reâlnâm Case, pFenââe- 
nâm v zâhlavfch strânek. 

PAGE — pFi vyhledâvânl zvolenâ strân¬ 
ky porovnâvâ 6islo prâvâ naâtenâ 
a zvolenâ strânky (vâetnâ âfsla maga- 
zfnu). 

REST — naCftâ zbytek strânky ai po 
hlaviâku nâsledujld strânky. 

SAVE — volâ rutiny nutnâ pro zpraco¬ 
vânl paketu 27 a paketu 26. 

DEK27 — dekâduje paket 27, 

PAK26 — dekâduje paket 26. 

DISPLAY — fidt zobrazovâni strânky, 
volâ potFebnâ rutiny z BLOKU ZO- 
BRAZENÎ. 

BLOK ZOBRAZENI — obsahuje rutiny, 
nutnâ pro sprâvnâ zobrazeni strânky. 


Popis nâkterych vybfanych dâstl programu 


OYOONf BLOK 


V uvodnim bloku jsou definovâny nutnâ makroinstrukce 
pro komunikaci s paralelnlm rozhranlm a velikosti jednotli¬ 
vych bafrâ. Je uveden pFiklad minimâlnich definic, potfeb- 
nych pro Cinnost zâkiadnl Câsti programu. 


VYHLEDĂNf A DEKODOVANi RADKU 


V dalâl ââsti je popis hlavni procedury pro vydtânl dat 
z adaptâru a pro upravu jednoho teletextovâho Fâdku. Pro¬ 
cedura volâ podprogramy niiSI urovnâ (viz dâle), kterâ jsou 
zCâsti zâvislâ na hardware poâltaâe. Viastni hlavni procedura 
pro vydtânl je volâna z hlavni programovâ smyCky (procedu¬ 
ry IDLE). 


Uvcdni blok 




FRANING EQU 
EMAELO EQU 
ENAftl EQU 


000011108 

OOOOU11B 


j Fraainguv Irod 
j ENABEd) 

: ENA»E=1 


PROGRAHOVANI 8255 


1. Nastaveni reziau 
Bit 7 4 5 4 


1 0 


! Port C (lower) l-lnput,0-0utp<l 
Port F l-Inp«t,Q-OMtput 
Hode selecţia» O-Hode 0,1-Hode l 
Port C (upper) l-lnput,0-0utput 
Port A l-lnput,0-0utput 
Hode selertion (XE Hode 0,01-flode 1, IX-Hode 2 
Hode set flag 1-Active 

2. Bit set/reset foreat 
Bit 76543 2 10 


! ‘ ! Bit set/reset flag 1-Set,0-Reset 

Bit select 000-0 : 111-7 

Unused 

Bit set/reset flag 0-Active 


CU 


EQU 


1001C011B 


PiOSIZEEQU 448 


Ridici sloco pro 8255 

PA - vstup dat 2 dekoderu 
PB - nepouzit-nastaven jako vstup 
PCD - /G0 signal z dekoderu 
Pa - ENABLE signal do Modern 
Velikost bufferu pro P!0 ( «as. pro 
8 ttx. datovgch radku v pulsaiaku ) 
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* Vyhledani a dekodovani radku * 

# * 

HIUUMIIIfilHIHIHtll B Uf f tm jţţfrt 

Progra* vyhleda a dekcduje adresu radku do oblasti R0HADR 
Je-li to radek 00 ( hlavicka ) , provede dekodovani do oblasti VEAB 
preş rutiny : 

SEARCH.Vybledani fraaingova kodu 

SCANJ50.Nacteni dat z teletextu 

EEC0BE.Hakro,kter* dekoduje Ha«ingovy kody 

Vystup; F(CY)-1 - bylo preruseno eterii 
jinak F(CY)=0 

HI - Adresa prvoiho datoveho bytu ( za zablavie ) 


'M :p : UNEI 
LINEO 


UNEOj 


H,BC a PÎ0B.F nastaveny z predchoziho volani 
- Nacita data do PICfflUF a nastavuje HL,EC 


LINE4: 


CĂLI 

SCA1LG0 

Nejprve ausiae nacist data 

RET 

c 

Bylo preruseno cteni-navrat 

LD 

Ht.FIOBir 

Odkud iiinst- 

1.0 

BC.PI0SI7E 

Velikost buf feti» 

CAII 

SEARCH 

Vyhledej Fraeing v bufferu 

JR 

NZ,LINEO 

Buffer prazdoy,nebo falesny radek 

L0 

A, (HI 

Hagazine f ♦ Roe address 

0EC0DE 


Dekoduj Haaainguv kod 

JP 

H,LINE1 

Chi^ă - hUdei dsle 

LD 

E,A 

IJschovej «ezivysledet: 

INC 

H 

HL= adresa Ro*> address ( nizsi 4 bity 

U) 

A, (HL) 

Haaeing do ACC 

DEC0DE 


Zkus ho dekodovat 

JP 

-H,LINEI 

Cbyba - hledej daisi radek 

INC 

HL 

Posun ria dalsi znvk 

SLA 

A 

Rotuj je do sprasne pozice 

BIT 

3,£ 

Test. na lichy radek ( 0-ty bit =1) 

JR 

Z.LINE4 

Je sudy 

INC 

A 

Je lichy 

i.D 

(R0UAGR),A 

Uloz cislo radku 

10 

D,A 

Uschove; adresu na chvili 

ID 

A,E 

Vezei cislc «agazinu 

Wffi 

1UB 

Oprav ho 





















LD 

(HEAD),A 

UIoz cislo aagazinu 

LB 

A,D 

Vrat zoet adresu 

OP 

A 

Test na cislo radku ♦ CY=0 

RET 

NI 

“a.t at kdyr radei 03 

LD 

DE,HEADH 

Cilova obiast pro dekodovani 

PUSH 

BC 

Uschovej pocitadlo neprohledanych bgtu 

LD 

B,8 

Pocet bgtu v zahlavi 

LD 

A,(HL) 

Dekodovang bgte 

DE03DE 


Ikus ho dekodovat 

JP 

H,LINES 

Chgba - oprav zasobnik a hledei dale 

IO 

(DE),A 

Uloz dekodovang byte 

INC 

HI 

Posun oba 

INC 

DE 

ukazatele 

DJNZ 

LINE2 

Dekoduj cele zahlavi 

EX 

•SP),HL 

Vezni pocitadlo 

ID 

BC,-8 

Opravi«e o odebrane bgtg ze zahlavi 

AOD 

HL,BC 

Oprav 

EX 

(SP),HL 

Vratine zpet adrese 

POP 

BC 

Obnov pocitadlo 

XOR 

A 

CY=0 

RET 


Navrat 

LD 

A,8 

Budeee pocitat of set 

as 

B 


LD 

C,A 

; BC=vgsledek 

LD 

B,0 


OR 

A 

; CY=0 

EX 

(SPAH¬ 

; Vezaeae adresu 

SBC 

IU,bc 

; Opravi te pocitadlo o data 

EX 

(SP),HL 

; Vratiae zpet 

POP 

BC 

; Oprav zasobnik ( vrat pocitadlo ) 

JR 

LINEI 

; a hlede.j znovu 


VYHLEDÂNf RAMCC>v£HO K6DU 


Nâsledujicf rutina je pouifvâna pro vyhledânf zaââtku tele- 
textovych fâdku. ZaCâtek râdku ie identifikovân prftomnostî 
rârncovâho kddu (framing code). Jestfiie nâsleduj'r dva tyto 
k6dy za sebou, povaiuje se za platny druhy vyskyt. 

(HltWHHHIHHHHfMHW 
;l * 

;* Vghledavani Fraeingova kodu * 

• » t 

; Progra» vghledava fraainguv kod od adresy (HL) v delce (BC) 
j a testuje preteceru i mirmltf,-- y-ghledavani. 


; Vystup: 

... Nasol fr^aing HL 

addr (Ff a*i ug+t-- 

SEARCK: 

BIT 

7,B 

; Test na peteceai rozsahu 

RET 

NZ 

; Frating nenalezen-pretek! 

LD 

A.FRAKING 

; Ce bledaae 

CP IR 


; Hledej 

RET 

NZ 

ţ Navrat - nenasel 

C? 

(HL) 

j Test na 2* fraair.g za :ebc« 

JR 

Z.SEARCH1 

; Jsou 2 fraaingg 

XOR 

A 

; 

RET 


; Navrat Z 

SEAECH1:INC 

HL 

; Preskoc prvni fraaing 

BEC 

BC 

; Oprav pocitadlo 

XOR 

A 

i M 

RET 


; Navrat Z 


PftEKdDOVACf TURBO TABULKA 


CekAnI NA GO A TEST KLÂVESNICE 


Dâle uvedenâ tabulka umofftuje velmi rychlâ dekâdovânf 
a vyhodnoceni (prfpadnâ opravenf) Hammingova k6du (va¬ 
rianta A, viz „TELETEXT — popis systâmu ..Tuto tabul- 
ku vyuiîvâ makro DECODE volanâ v LINEO a v LINEI. 


Nâsledujicf rutina testuje stav klâvesnice a adaptâru. Pfi 

_pripravenosti adaptâru pro pfedânf dat provede pfesunutf 

dat z vyrovnâvacf pamăti adaptam do oblasti PIOBUF. Ta 
$lou2f jako pracovnf obiast p r o dekdd ovâni. Pfi pfenosu dat 
je vyuifvâno signâlu CS PIO a RD PIO k pffmâmu inkremen- 
tovâni Citate pro adresovâni vyrovnâvacf pamtti v adaptâru. 
To znamenâ, ie tuto tinnost nent treba ovtâdat softwarovă. 

V pfipadt, ie se tekâ na pfipravenost adaptâru a je stisk- 
nuta năkterâ klâvesa, je nastavena vlajka indikujicf uiivatel- 
sky vstup (CARRY)a je proveden nâvrat do procedury, kterâ 
tuto rutinu volala (LINEI nebo LINEO). 


HiHimiimiiiiiHHHHiiiiimimi 
i * 

* Cekard na GO a test klâvesnice * 

* * 
WIHHHHimillHIHHIHHHiHim 

Tento podprogran ceka na «konceni nejblizsiho signal» GO 
a testuje klavesnici na stisk tlacitka ( preruseni hledani ). 
Po prichodu signalu nacte data z vyrovnavaci pameti dekoderu 
na adresu PIOBUF pr o dai si zpracovani. 

Vystap: F <CY>=1 - bylo prer-useno 


SCANJ»; 


CALL 

CONST 

Get console status 

OR 

A 

Nastav vlajku Z/NZ 

SCF 


Pripadne vlajku INTERRUPT 

RET 

NZ 

Bgla stisknuta klavesa 

IN 

A, (PICO 

Itacti status (X) siyalu 

AND 

l 

Kaskuj pouze tento bit 

JR 

NZ,SCAfL60 

®) jeste neprislo 

IN 

A,(PIOC) 

Test na jeste trvani GO 

m 

1 

Haskuj GO bit 

JR 

Z,GttJSCAK 

GO jeste trva 

IJ 

A.ENABLl 

Pcvolinse vgcitani dat z dekcderu 

OUT 

(cm>,A 

preş PC7 

LD 

HL,PIOBUF 

Kaa budeoe ukladat data 

LD 

BC.PrOA 

0dk>id budeae braţ + pocitadlo 

INIR 


Nacteae prvnich 256 bgtu 

LD 

INIR 

BC,256*(PI0SIZE-256)+PI0A; Nacteae zbutek dat 

LD 

AjENABiO 

Zakazeae vycitani dat z dekoderu 

OUT 

(CTRL),A 

preş PC7 

XOR 

RET 

ft 

Nuluj CY flag 


; MmmfHHHHHHHHrHIIWHHm 

;* * 

;* FVefcodovaci TUPBO tabella * 

;» » 

; Tatwlka pro TURBO detodovant 
; (tl 1938 Pavel BRYCHTA 


•RADIX 

16 

DB 

OFF,OOC,001,OFF,OOA,OFF,OFF,00? 

OB 

OOA,OFF,QFF,OOB,QOA,OOA,OOA,OFF 

I» 

008,0FF,OFF,00B,0FF,000,00D,0FF 

CB 

3F,')OB,OCB,OOB,OOA,OFF,OFF,OOB 

BF 

OOC f OOC,OFF,OOC,OFF,OOC,OOD,OFF 

DB 

OFF,OOC,OOF,OFF,OOA,OFF ) OFF,007 

DB 

OFF,00C,00D,OFF,000,OFF,000,000 

DB , 

m,OFF,OFF,OOB,CFF,OOE,OOD,OFF 

DF 

008,OFF,OFF,009,OFF,009,009,009 

DB 

OFF,002, OOF, OFF, 00A, OFF, OFF, 009 

DB 

008,008,008,OFF,008,OFF,OFF,009 

DB 

008, OFF,OFF,008,OFF,OOE,003, OFF 

DB 

OFF, OOC, OOF, OFF,004, OFF, OFF, 009 

DB 

00F, OFF, OOF, OOF, OFF,OOE,OOF,OFF 

DB 

008,OFF,OFF,005,OFF,OOE,000,OFF 

DB 

OFF,OOE, OOF,OFF,OOE,OOE,OFF,OOE 

TABLE: DB 

001,OFF,001,001,OFF,000,001,OFF 

DB 

OFF, 002,001, OFF, OM, OFF, OFF, 007 

DB 

OFF, 000,001, OFF,000,000, OFF, 000 

DB 

006, OFF, OFF, 00B, OFF,000,003, OFF 

DB 

8T, OOC, 001, OFF, 004,OFF,OFF, 007 

DB 

006,OFF,OFF,007,OFF,007,007,007 

DB 

006,OFF,OFF,005,OFF,000,000,OFF 

DB 

006,006,006,OFF,006,OFF, OFF, 007 

DB 

OFF,002,001,OFF,004,OFF,OFF,009 

DB 

002,002, OFF, 002,OFF,002,003,OFF 

DB 

008, OFF, OFF,005, OFF,000,003,OFF 

DB 

OFF,002,003,OFF,003,OFF,003,003 

DB 

004, OFF,OFF,005,004,004,004,OFF 

DB 

OFF,002 I OOF,OFF,004,OFF I OFF,007 


OFF,005,005,005,004,OFF,OFF,005 

DB 

006,OFF, OFF,005,OFF,OOE,003,OFF 

.RADIX 

OAH 
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Popis ovlâdâni 


Po zavedenl programu z kazety (di- 
skety) se zobrazi titulnl strana a hlavnl 
menu. Menu obsahuje tyto tfi zâkladnl 
varianty: 


Setup Prinţ Help 

Jednotlivâ varianty se voii klâvesou od- 
povfdajlcl zvyraznânâmu plsmenu. 

Setup — umoirtuje nastavenl zpusobu 
vysllânl fldiclch znakO na tiskârnu ve 
formă CR nebo CR+LF a nâsledujlcl 
zpusoby kopie obrazovkv: 

Normal — normâlni kopie — obsahu¬ 
je pouze platnâ ASCII znaky, grafika 
se zobrazi pomocl odpovldajlclch 
ASCII znakO, znaky nârodnlch variant 
jsou zobrazeny bez diakritickych 
znamânek. 

Shaded — stlnovanâ grafick£ kopie 
— vyuilvâ moănostl tiskâren standar- 
du IBM a Epson. 


Prinţ — provede vytiătânl naCtenâ 
strânky podle podmlnek, nastave- 
nych v pfedchozlm bodă. 

Help — zobrazi seznam plsmendvych 
pflkazu pro standardnl ovlâdâni. 
Jsou to tyto prlkazy: 

0—S — page # — volba strânky — pro¬ 
vede se zadânlm tflcifernâho Clsla, 
po kterâm nâsleduje <CR>. 

A — again — znovu se provede naCtenl 
zvolenâ strany. 

C — clock — po pfedchozl pflmâ volbâ 
podstrany se zobrazi potlaCeny reâl- 
ny Cas. 

D — double — horn! a doini polovina 
naCtenâ strânky se postupnâ zobrazi 
v dvojnâsobnâ vyăce. Rotovânl se 
provâdl libovolnou klâvesou. 

E — exit — nâvrat do operaCnlho sy- 
stâmu mikropoCItaCe. 

H— hold — podrienl rotujlcl podstrân- 
ky ai do dalălho stisku libovolnâ 
klâvesy. Funkce je indikovâna pls- 
menem ,H‘ v levâm hornlm rohu 
obrazu. 

I— index — automatickâ volba indexo- 
vâ strânky (strânka 100, pflpadnă 
strânka nastavenâ pomocl paketu 
27). 


M — menu —■ zobrazi se menu. 

R — reveal — zobrazi se znaky, kterâ 
jsou pfi naCtenl strânky skryty. 

T — time code — pflmâ volba pod- 
strânky — umoiftuje zadat ătyrcifer- 
nâ ălslo podstrânky. Po zadânl Clsla 
strânky stiskneme ,T‘ (na mlstă reâl- 
nâho Casu se zobrazi TimeOOOO), za- 
dâme Cislo podstrânky a stiskneme 
<CR>. 

<SP> — fast search — volba sdruie- 
nych strânek. V pflpadă, ie se pre- 
nâ§l adresy tzv. sdruienych strânek, 
kterâ jsou urCeny k automâtickâmu 
uklâdânl do pamăti dekodâru, je je- 
jich pfltomnost indikovâna znakem 
t >‘ v levâm hornlm rohu obrazu. Pak 
je moinâ pomocl klâvesy <SP> vyvo- 
lat zobrazenl doplhkovâho 25. fâdku, 
pfenâSejlclho pfehled sdruien^ch 
strânek. Volba sdruienâ strânky se 
provede stisknutlm odpovldajlcl 
klâvesy ,1‘ ai ,4‘. Klâvesy jsou prifa- 
zeny barevnym skupinâm nâsledu- 
jlclm zpusobem: . 
klâvesa ,1‘ „Cervenâ" 
kiâvesa ,2‘ „zelenâ" 
klâvesa ,3‘ „ilutâ" 
klâvesa ,4‘ „modrozelenâ" 


-—-—--~N 

Publikovat cely vypis programu pro pfijem teletextu nebylo vzhledem k jeho rozsahu reâlnâ. 
Proto jsme zaHdîli v râmei projektu MIKROBÂZE, aby nahrâvku programu na kazetă dodâva- 
la 602. ZO Svazarmu v Praze. Zatim jsou k dispozici programy pro poiitaie ZX-Spectrum, 
SORD M5, Sharp MZ800, pKpravuji se dalâi vfietnă IBM-PC. O program pro svu| poditaC si 
tedy napiăte na adresu: 602. ZO Svazarmu, ui. dr. Z. Wintra 8,160 00 Praha 6. 

___ J 


Dlouhy spânek Gajany 

Caroia Biedermannovâ 


Za jasnych nod blikâ na obloze malâ hvăzdicka. Ze Zemă 
nern vidăt, ie kolem nf krouii tfi planety. Dvă jsou mrtvâ. 
Hromady kameni, mrazivâ pustiny. Treti je iivâ. Jmenuje se 
Gajana. 

Podnebf Gajany je teplâ a kromă oblasti tropickych 
deăfovych pralesu suchâ. Rână jsou chladnâ a svăii, 
poledne horkâ do umoru a vedery dlouhâ, vlahă, sou- 
mraână. Je to mfrnâ planeta. Cas plyne tiăe a nemâ velky 
vyznam. 

Na Zemi vesele skotaâili brontosaurovă a jină tăikotonâinl 
potvory, kterâ byly pozdăji odkâzâny do ffăe pohădek, aby 
jeătă pozdăji byly s Octou a pietne objevovâny jejich kosti. 

Na Gajană slezl podnikavy opidâk nebo zvffe opici 
podobnâ ze stromu a postavil se na zadnî konăetiny, aby se 
podfval do dâlky nad vysokou trâvou gajanskâ stepi. V trâvă 
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uvidăl pasoucl se zvffe podobnâ krâlfkovi. Napadlo ho vzft 
do ruky klacek a krâlfka praătit. Krâlfk padl s roztffătănou 
lebkou. 

Opidâk si dfepl vedte krâliăf mrtvolky a tupă na ni ziral. 
Pfitom mimodăk olfzl klacek se zbytky krâlidho mozku. 
Chutnal podobnâ jako stromovf âervi, kterymi se iivil. 

Na planetă Zemi slezl prvnf podnikavy opidâk ze stromu 
v dobă, kdy Udă na Gajană podnikali pokusy s chovem zvffat 
a păstovânfm rostlin. Kdyi si na planetă Zemi Udă vzâjemnă 
kradli nasbfranâ rostliny a ochodenâ zvffata, na Gajană jit 
stâia bflâ măsta. Vysokâ ieny s lehee namodralou pletf 
a korunou zlatych vlasO a muii, do pasu nazf a v dlouhych 
bllych suknfch prochâzeli stinnymi podloubfmi ulic kolem 
plnă automatizovanych obehodu a pracovali v nekonednă 
bălostnych kltmatizovanych sâlech a chodbâch podftadu. Za 
nocf hledăli ke hvăzdâm. 

Podnebf Gajany je suchâ a teplâ, dâăfnezavfrâ lidiv jejich 
pffbytcfch. Lidâ nezapomnăU na ăirokâ stepi, ze kterych 
pfiăli. Ve volnych dnech odchâzeli do malych domku ve 
stepi, aby iili bl fi pffrodă. Păstovali ovoce a zeleninu, iili bez 




jfdel, kterâ se sama uvaff a bez vozidel, kterâ se sama h'df. 
Volnych dnu pfibyvalo, podi taie ve măstech byly dfm dâl tfm 
schopnăjăi a samostatnăjăf. Li dă Gajany se postupnă vraceli 
do svych stepf. Podftade pro nă vytvofily rozvâikovou 
, sluibu. Ale zâsobovaci vozy se vracely plnâ, lidâ si păstovali 
potraviny vlastnfma rukama a tkali lâtky na primitivnfch 
stavech. Nechtăli ui trâpit dâti ăkolou, vzdălânim, prad. 
Mysleli to dobfe, kdyi jim chtăli dop făt svobodu. Tehdy. 

Podnebî Gajany je teplâ, suchâ a mfrnă. Jitra jsou tichâ 
a osvăzujfcf. Lid Gajany nezna! vâldeni, oblibenou zâbavu lidf 
na Zemi. Stâdnf pud u năj zanikal. Ve stepich bylo mfsta 
dost. 

Bilă măsta Gajany osifela. 

Podftade postupnă ruăily vyrobu văci, kterâ nikdo nepotfe- 
boval. Automaty a roboty udrzovaly opuătănâ măsta nebo 
dekaly, pedlivă nakonzervovâny, ve skladiătfch. Nablyskanâ 
vozidla stâla v garâifch, obchody byly prâzdnâ, jen stepni 
vltr se prohânăl podloubfmi. V dlouhych chodbâch podftado- 
vych center blikala svătâlka a svftily obrazovky. Podftade 
dekaly na muie v dlouhych suknfch se zlatymi vlasy 
k ramenum, na dfvky v bflych ffzâch, protoie, jak pravil jejich 
program a jejich zkuăenost, jen tym dtovăka s podftadem 
dâvâ fungujfcf celek. Lidâ văak odeăli. Opustili i svâ domky, 
kterâ stejnă ui neumăli pofâdnă udriovat, a iili v dfevănych 
srubech nebo zahloubenych polozemnicfch. 

Na Zemi lidâ pomalu kondili s toulavym pasteveckym 
zpQsobem iivota a zvykali si ift v trvalejăfch sfdliătfch. Bude 
trvat jeătă dlouho, nei bude postaveno măsto u Catal 
HUyuk, nei se zrodi na ostrovech prvnf ffăe, po kterâ 
zustanou jen bâje o Lemurii, zemi Mu di Atlantidă. 

Podftade na Gajană iily bez lidf. Măly spoustu dasu. 
Vyuiily ho na zdokonalenf, zfskaly prvnf zâblesky sku- 
tednâho vădomf. Bylo to vădomf osamălosti. 

O udribu podftadu se staraly roboty, slunce Gajany 
dodâvalo do slunednfch baterii neomezenâ mnoistvf ener¬ 
gie. Ale pfichâzel stesk. Lidâ zapomfnali na podftade a na 
bflâ măsta, ze kterych odeăli do ăirych stepf za svobodou. 
Măsta se v jejich vyprâvănf stăvala podivnym pfetechnizova- 
nym peklem. Po lidech zustaly linky telefonu, stanice 
bezdrâtovâho spojenf. Podftade je măly na dosah. A tak se 
propojily do jednoho planetârnfho systâmu. S nadăjf, ie 
pfemohou samotu. Vznikl velky podftad Gajany. 

Na Gajană znamenâ das mâlo a pro podftad jeătă mână. 
~~Jen samota odkapâvâ v drobnych krupăjfch a măff dobu 
dekânf. Velkâ kalui samoty znamenâ stesk. Z kaluif vznikajf 
potudky, jezfrka... Podftad Gajany se odhodlal k dinu. 
Poslal za lidmi roboty, aby je pfivedly zpâtky, kdyi bflâ 
măsta dekajf a podftad je stâle pfipraven jim slouiit. 

Lidâ Gajany jii zapomnăli umănf prâce s kovy. Tâhli se 
svymi stâdy od pastviny k pastvină, bydleli ve stanech 
z pâchnoucfch zvffecfch koif, pojfdali napul syrovâ maso 
a divokâ rostliny. Veder se u tâborovch ohnO vyprâvăly 
povăsti o bflâm pekle măst. Neduvăfivă, se strachem hledăli 
lidâ na roboty, kterâ jim neublliovaly a năco ffkaly. Jistă to 
byli dâmoni pekla. 

Red lidf se zmănila. Bylo v nf mâlo slov a znăla jinak, nei 
bylo uloieno v pamăti velkâho podftade. Podftad măi v tâ 
dobă bohatăf slovnfk nei nejchytfejăf z lidf. Moină, ie lidâ na 
Gajană se chvfli pokouăeli pochopit, co od nich ty lesklâ 
krabice chtăjf, nei je poslali pryd nevybfravymi slovy. Nemăli 
ostatnă z deho vybfrat a măli spoustu jinych starosti. Hodnă 
se jich rodilo, jeătă vfce umfralo, pofâd fâdily năjakâ nemoci, 
bolely je zuby, pokud năjakâ măli, dobytek se plaăil 
a mouchy otravovaly. 

Velky podftad Gajany usoudil vcelku sprâvnă, ie lidâ se 
nevrâtf, ie zustal sâm. Hledal feăenf. 

Pfestal udriovat zbytednâ măsta, ta se po dase zhroutifa 
v hromady sutin a z tăch pomalu vznikal pfsek. Zustala jen 
podftadovâ centra, sfunednf baterie, vyroba obsluinych 
robotu a hvăzdârny. 

Na Gajană das mnoho neznamenâ a pro podftad jeătă 
mână. Podftad hledâl k hvăzdnâ obloze. Podftal, premyălel, 
moină i snil. Byl pânem planety a myslel na hvăzdy. 

I na Zemi lidâ hledăli ke hvăzdâm, dâvali jim jmâna svych 
bohu, dâvali jmâna souhvăzdfm. Jedno dostalo jmâno 
Pastyf. 

Stepni vftr rozfoukal po Gajană pfsek, ktery zbyl z bflych 
măst. Pfibyvalo pfsednych bouff, ve kterych hynuli lidâ 
i zvffata. Stepi vysychaly pod vrstvou vâpenatâho pfsku, 
mănily se v pouătă. Lidâ se pfestăhovali do jeskynf a iivili se 
lovem drobnâ zvăfe. Usidlovali se na okrajfch pralesu, kterâ 
pouăt nemdhla pohltit, nemăta na to dost sfly. 

Jeden podnikavy mui, drobny a obratny, vylezl na strom. 
ObjevH hnfzdo stromo\rych dervO, ochutnal a ejhle, podobalo 
se to chuti vzâcnâho krâlidfho mozedku. Navfc naăel năkolik 
ţtivokych pfodu, prostă măi ăfastny den. Po dlouhâ dobă se 
dosyta najedl. 


Lidâ z Gajany se zadali stăhovat do pralesO. Postavili si 
hnfzda z vătvf a bydleli na stromech. Prales se dodkal. 

Podftad vyrobil sârii hlfdkovacfch zaffzenf, tovârna na 
vyrobu obsluinych robotu to hladce zvlâdla a pouătă Gajany 
byly ideâlnfm letiătăm. Zaffzenf byla prakticky nezniditelnâ, 
v nemănnâm kosmickâm vzduchoprâzdnu mohla dekat 
neomezenou dobu. Vypodftal vhodnâ mfsta — măi 
k dispozici hvăzdârny celâ Gajany — a rozeslal svâ hlfdky do 
vesmfru. 

Lidâ Gajany nemohli ze svych lesnfch skryăf zahlâdnout 
svătâlka, ztrâcejfcf se mezi hvăzdami. Velky podftadr Gajany 
se ponofil do dlouhâho dekânf. Moină i snil. A zatfm pouăt 
zakryla poslednf zbytky civilizace, pouăt se srdcem z kovu 
a polovodidu, kterou daleko od sebe probleskovaly povrchy 
slunednfch baterii'... 

Na Zemi Atlantis skondila v rozboufenych iivlech. Harrapa 
a Mohendioro proăly dasem, sumerskâ palâce pokryl prach 
a hlfna. Jako brontosaufi, i ffăe Chetitu byla vykâzâna do 
povăstf, aby po dlouhâm dase byla archeology pietnă 
odkryta. Egyptanâ postavili svâ pyramidy, pro kterâ das 
mnoho neznamenâ. Krâfanâ ovlâdali mofe a jako sport 
păstovali skok pfes byka, dădictvf bezejmennâho măsta od 
Catal HUyuk. ftekovâ postavili svâ bflâ chrâmy, kterâ dasem 
Turci opăt zboff, a tesali sochy, kterâ zustanou măfftkem 
krâsy v dobă, kdy jedna ze sond Gajany zadne plnit svuj 
program. 

V deătovych pralesfch Gajany potomci lidf sestupovali na 
zem jen zffdka. V tom pffpadă se pohybovali po dtyfech 
châpavych kondetinâch. Jednomu druhu se vyvinul châpavy 
ohon, coi se pro iivot na stromech bezesporu hodilo. Dăsili 
se otevrenâho prostoru, za kterym odeăli ze svych măst 
a ktery se stal pouătf. Vzpomfnka na dâvnou civilizaci v nich 
vyhasla. Jejich slovnfk se sklâdal z posunku, skfekQ, 
kiiourânf a odichâvânf. 

Na Zemi zadala a skondila doba kfestanskâho temna. 
Udenf mnichovâ Campanella, Bruno a Kepler a po nich udenf 
laikovâ Galileo a Herschel obraceli zrak lidstva ke hvăzdâm, 
coi nebyto prâvă snadnâ. Lidstvo se radăji bavilo vâldenfm 
a jinymi zmatky. Byl vynalezen parnf stroj, objevena 
elektfina, pracoval Edison a Marconi. Byl objeven bezdrâto- 
vy pfenos zprâv. Vesmfrny posel zadal plnit program. 

V roce 1927 podle pozemskâho podftânf dasu byl jli 
v âteru sluăny provoz. Sonda vysflala na Gajanu văechno, co 
zachytila, ostatnf bylo starosti velkâho podftade. Urdită s tfm 
măi starostf dost. Sonda zatfm plnila svQj druhy ukol. 

Potomci lidf Gajany obrostli ziatou srstf a vesele skâkali 
z vătve na vătev, anii by pocftili nespokojenost se svym 
osudem, kdyi Taylor a Young zaznamenali zpoidănf odrazu 
radiovych signâlu. V roce 1928 se totăi povedlo Halsovi 
a Strbmerovi, jev podrobnă prozkoumal Van der Pol, ktery 
zjistil zpoidănf ozvăn od tff do patnâcti sekund a pozmănănâ 
trvânf năkterych signâlu, zatfmco frekvence vidy souhlasila. 

Jenie lidstvo mălo jinâ starosti. 

V roce 1960 oiivil problâm zpozdănâhO odrazu Bracewell 
v dasopisu Nature. V roce 1965 si J. Strong uvădomil, ie 
mfsto odrazu je soudasnă jednfm z liberadnfch — rovno- 
vâinych bodu soustavy Zemă — Măsfc a tedy nejlogidtăjăfm 
mfstem napffklad pro umfstănf meziplanetâmf sondy. V roce 
1973 napadlo Lunana prenâst dfselnou fadu zpoidănych 
ozvăn do grafu. Pfed jeho mfrnă udivenym zrakem se 
objevila mapa souhvăzdf Pastyfe, jak by se jevila pfi pohledu 
ze Zemă pfed tfinâcti tisfci lâty. 

Jenie souhvăzdf Pastyfe je pro lldi Zemă trochu z ruky 
a lidâ majf spoustu jinych starostf a mâlo dasu. Na Zemi das 
znamenâ hodnă. 

V roce 2020 lidâ opăt jednou vesele vâldili, prp zmănu 
o kousek uzemf planety Marş, kterâ v podstată k nidemu 
nebylo. Znechuceny pilot bojovâ kosmickâ lodi se vracel na 
zâkladnu. Sarvâtka se protâhla, zmeăkal rande s bezvadnou 
kodkou, byl unaveny, dostal vynadâno a zaraienâ vychâzky. 
Vztekle stfflel po văem, co mu pfiălo na muăku. Pokaidâ 
trefU. 

Ze zasaienâho meteoru vyălehl prudky zâblesk, jehoi 
smăr pilot nezaznamenal. Fuj, to jsem se lekl, bylo văechno, 
co ho napadlo. 

V pouătfch Gajany das nic neznamenâ, pouăt nemănf svou 
zlatuilutou tvâf. V tropickych deătovych pralesfch svobodnă 
skotadf năkolik opic. V pfsku pouătf obdas probleskne 
povrch slunednf baterie. Skryt pod pfskem snf podftad svâ 
sny. 

V soustavă dvou tăles, napffklad Zemă — Măsfc, je păt 
libradnfch bodu. 
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iHO DISKU 


Ing- Ales JUftfK, FE VUT, Botetdchova 2 , 612 00 Bmo 

V souâasnâ dobă je jiz znâmo nâkolik uprav nukropodftaâu ZX Spectrum pro prâci pod operadnhn sysMmem 
CP/M. Tento âlânek je vânovân nejen tâm, ktefi si postavili mikropoâftaft kompatîbilni se ZX Spectrum podle ţi], 
ale tdd tâm, fctefi chtâji pro row at na svbn osm ib i twbH mi kr o po&it adi o per afcn i s y s tâm CP/M, fctery je 
v soutasnâm poâftaâovâm svite bezesporu nqrodffen§pn operainim systâmem, orientovany m na osmibitovâ 
mikropoâitaâe. 

Vzhledem k tomu, ie existate jîi nâkolik verzi tohoto operaâniho systâmu, je navrhovartâ verze upravena tak, aby 
pod systâ m e m mo hiypracovatvâeclinyp ro g r a my ,do6tapitovtuzeirâkui* z a taani â f, pouii¥aiicidflgtetlnâmodulu 
BIOS. MenSi problâmy vytvâfi pouze vfstup na obrazovku (konzotu), protoie u mikropoâftaâe ZX Spectrum 
nelze dosâhnout âitelnâho zobrazeni vice nei 64 znafcQ na fâdek (nikoli standardnich 80). Zato zde Ize pouiit 
speciâlni grafickâ funkce, kteri je moino impiementovat do modulu BIOS a pfi psanf vlastnich programfi vyuiivat 
graficky vjstup na obrazovku. Tento zpusob byl vyzkouSen nâkolika programy a poskytuje rozmanitâ moinosti pfi 
tvorbâ programu pod operadnim systâmem CP/M. 


Obecny popis systâmu CP/M nebu- 
de v tomto âlânku uveden, zâjemce 
najde podrobne informace v [2] a [3]. 
Krome toho je tento operaCnî systâm 
dostateânâ znâm, takie budou 
uvâdâny jen zmâny proti standardnimu 
provedeni. Clânek nelze brât jako uce- 
leny stavebni năvod, i kdyi pro majitele 
poâitaâe podle [1] na nâj tak Ize 
pohliiet. Je z nâj moino derpat inspira-, 
ci pro dalâi zâjemce o operadni systâm 
CP/M, zâlohovany ramdisk nebo radid 
ftoppydisku vâetnâ kanâlu DMA. Zâro- 
veft je moină aplikace pouze nâkterych 
dăsti tohoto dlânku (tzn. CP/M jen 
s ramdiskem a kazetovym magnetofo- 
nem nebo CP/M jen s jednou nebo vice 
disketovymi jednotkami). 

1. POPIS OBVODOVEHO 

ReSenI 

Obvodovâ feSenf vychăzf z faktu, ie 
operadni systâm CP/M potfebuje pro 
svou instalaci pamâfovy prostor z pa- 
măti RWM pfes ceiy zăkiadni adresovy 
prostor mikropodftade, tj. 64 kB. Nâkdy 
se uvâdi, ie BIOS mOie byt v pamâti 
ROM. Z hlediska kompatibilfty s ruz- 
nymi moduly BDOS, z nichi vâtSina 
vyzaduje v oblasti BIOSu od adresy 
0FB00H dolu nâkolik desitek bajtu 
volnâho prostoru pro zăsobnik, je 
vhodne, aby ceiy pamâf ovy prostor byl 
realizovân z pamâti RWM. Pro majitele 
mikropoâitade podle [1] je tento poia- 
davek splnân ovlâdânim vnitfni pamâti 
signâlem SPIN a pfekrytim doinich 
32 kB odpovfdajici dâsti pamâti „pujâo- 
vanâ“ z ramdisku. Pro majitele Spectra 
s 80 kB vnitfni pamâti RWM je nutno 
pouze pfizpOsobit pfepinâni tâto pa- 
mâti signâlem SPIN tak, aby pfi aktivni 
urovni tohoto signâlu byla pamef ROM 
a pamâf video pfekryta pamâti RWM. 
Majitelâ neupravenâho Spectra mohou 
ovlâdat pomoci tohoto signâlu pfidav- 
nou pfepinaci iogiku tak, aby pfi aktivni 
Orovni signâlu SPIN obvod ULA mâl na 
vstupech AB14 a AB15 urovnâ logickâ 
nuly a zâroveft vyblokovat vnitfni pa¬ 
mâf ROM pfivedenim logickâ jednidky 
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na vstup CSROMGEN. To Ize jednodu- 
Se zajistit pferusenim pfisluânych adre- 
sovych vodidu u vstupu obvodu ULA 
a pfidânim jednoho obvodu napf. typu 
74LS08. 

1.1 Popis obvodu ramdisku 

Nâvrh obvodu ramdisku vychâzi 
z pfedpokladu, ie s pamâti ramdisku 
se bude komunikovat jako se strânko- 
vou systâmovou pa mâţi, nikoli pfes 
port instrukcemi vstupu a vystupu. 
Velikost strânky byla pro co nejjedno- 
duăăi obvodovâ feâeni zvoiena 32 kB. 
Pro „pujdovâni" systâmu (pfekryti 
ROM a video RAM) byla zvoiena strân- 
ka 5. 0 (z hlediska obvodovâ jednodu- 
chosti Ize stejnă pouiit i strânku 
s adresou nejvyăăi, ale navrhovany 
ramdisk muie mit i menSi pamâfovou 
kapacitu). 

Obvodovâ feSeni ramdisku je na obrâz- 
cîch 1 ai 4. Umozâuje nâsledujici 
funkce: 

1) pri komunikaci s ramdiskem je 
pfisiuânâ tficetidvoukilobajtovâ strânka 
pfipojena do pamerovâho prostoru 
mikropoditade od adresy 04000H. 

2) pokud se poiaduje pfipnuti sy- 
stâmovâ pamâti RWM do celâho adre- 
sovâho prostoru mikroprocesoru, pfi- 
pne se od adresy 00000H nultâ strânka 
ramdisku. Protoie pfi pouiiti ope- 
rafiniho systâmu CP/M neni moinâ 
pouiivat tute strânku jako souââst 
ramdisku a systâmovâ pamâti zâroveft, 
je programovâ v BIOSu zabiokovâno 
jeji pouiiti v ramdisku. 

3) pfi aktivad funkce BOOT (zavede- 
nf systâmu a jeho studeny start) je do 
spodnf Câsti adresovâho prostoru pfi- 
mapovâna pamâf ROM se zavâdââem 
systâmu z diskety a do borni poloviny 
(od adresy 08000H) je pfipojena pamâf 
RWM. Po nahrâni systâmu program 
skoâi do BIOSu, ktery odepne pamâf 
ROM a uskuteânf studeny start sy¬ 
stâmu. V sou&asnâ dobâ zatim modul 
BIOS vyiaduje pfitomnost obsahu pa¬ 
mâti ROM Spectra (vyuiivâ se z ni 
scroll obrazovky, funkce PLOT, DRAW 
a BELL). Zavâdââ systâmu byl doplnân 
do volnâho prostoru pamâti ROM. 

Podle tâchto poiadavku dostâvâme 
tedy signâl odepinajici vnitfni pamâf 
RWM jako souâet tfi signâlu (viz ofar. 1). 


SP1 = RAMDISK + (EXPRAM.A15N) + 
+ CSROM (1) 

ad 1) Funkce obvodu podle tohoto 
bodu je zabezpeâena ovlâdânim sig¬ 
nâlu SPIN pomoci signâlu RAMDISK 
(aktivni uroveft tohoto signâlu signalizu- 
je, ie zrovna probihâ komunikace 
s pamâti jako s ramdiskem): 

RAMDISK = RAMD . (A14.A15N + 

+ A14N.A15) (2) 

kde signâl RAMD je vystup 1013 
(obr. 1) a signâly A14 a A15 jsou 
pfisluânâ bity adresovâ sbâmice. Do 
obou polovin 1013 se vybârovym sig¬ 
nâlem CS4N (instrukci OUT (4), A) 
zapisuje informace ze Ctvrtâho 
a pâtâho bitu datovâ sbârnice, pfiâemi 
aktivni jsou v logickâ jedniâce. Pomoci 
âtvrtâho bitu se oviâdâ pfipojeni pri- 
sluănâ strânky ramdisku a pomoci 
pâtâho bitu se oviâdâ mapovâni nultâ 
strânky pamâti ramdisku do prvnich 
tficeti dvou kB pamâfovâho prostoru, 
pokud se pouiivâ ââst pamâfovâ kapa- 
city ramdisku jako mapovanâ systâmo¬ 
vâ pamâf [viz ad 2)]. Obvod 1012 je 
pouiit jako Ctyfbitovy registr adresy 
strânky ramdisku. Jeho vystupy jsou 
hradiovâny signâlem RAMDISK, 5imi 
je zabezpeâen vybâr nultâ strânky, 
pokud neni signâl RAMDISK aktivni a je 
komunikovâno s pamâti ramdisku. 

ad 2) V okamiiku, kdy je poiadovâna 
komunikace s nultou strânkou pamâti 
ramdisku jako se systâmovou pamâti, 
je aktivni signâl EXPRAM (vystup druhâ 
poloviny 1013). Ten aktivuje signâl 
SPIN, pokud je poiadovân pfistup do 
spodni poloviny systâmovâ pamâti 
[v rovnici (1) je to vyjâdfeno druhym 
sâitancemj. Vystupy registru strânky 
jsou blokovâny pouze pfi aktivnim 
signâlu RAMDISK. V pHpadâ, ie jsou 
aktivovâny oba signâly, je obsazeni 
pamâti nâsledujici: 

OOOOOH ai 03FFFH — spodni polovina 
nultâ strânky ramdisku jako systâmovâ 
pamâf, *- 

04000H ai OBFFFH — aktuâlni adreso- 
vanâ strânka ramdisku, 

OCOOOH ai OFFFFH — vnitfni systâmo¬ 
vâ pamâf mikropoâitaâe. 


* 
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Je vidât, ie aktivace ramdisku mâ 
prioritu» coi je nutnâ kvuli jednoduchâ 
komunikaci s ramdiskem. Pfipfnânf 
strânky ramdisku doprostfed adreso- 
vâho prostoru mikropo£fta£e byto zvo- 
ieno proto, aby se zachovala dostup- 
nost podâtku pamâti, kde jsou umfs- 
tăny odskoky a pracovni prostor ope- 
radniho systâmu, a konce pa mâţi, kde 
je umistăn systâm. 

ad 3) Pokud si vytvofime BIOS tak, ie 
nebude tfeba spoiuprâce s pa mâ ţi 
ROM Spectra, rrebo tak, ie v nâm bude 
obsaien zavâdââ, ktery do pamâti 
zavede obsah pamâti ROM Spectra, 
mâieme pouiivat zavâdânf systâmu 
z diskety zavâdââem v pamâti EPROM. 
Zavâdânf systâmu je inicializovâno pfi- 
pojenim signâiu SBOOTN na uroveâ 
log. 0. Tfmto signâlem se nastavf ktopny 
obvod 1015 (obr. 1) a vygeneruje signâl 
RESETN. Do spodni poloviny pamăto- 
vâho prostoru se pfipojuje pamâf 
EPROM (obr. 2) a v horni polovinâ 
pamâti mikroprocesor spoiupracuje 
s horni polovinou vnitfnf systâmovâ 
pamâti mikropoâitaâe. Pozor! Pfi vyuii- 
vânf tâto funkce je nutno zajistit ode- 


pnutf pamâti PROM s pâskovym za- 
vâdâdem, nejlâpe pomocf dvojitâho 
ttaâftka, jehoi jedna polovina bude 
nastavovat 1015 (obr. 1) a druhâ 
polovina bude nulovat kiopny obvod 
102 (obr. 1 v (1j), napftkiad nulovânfm 
signâiu CSRESN (obvod 3205 bez 
potfif vydrii na jednom vystupu krâtko- 
doby zkrat) nebo krâtkodobym pfipoje- 
n(m log. 1 na hodinovy vstup tohoto 
obvodu. 

Dală! obvody na obr. 1 generuji 
signâiy CASLO a CASHO (vybârovâ 
signâly pro jednotlivâ osmice dynamic¬ 
kych pamâti) a signâly ovlâdajfcf multi- 
plexery adresy dynamickych pamâti. 
Dvojice klopnych obvodu 1014 generu- 
je osmy bit osvâiovacf adresy dyna¬ 
mickych pamâti. 

Na obr. 2 je takâ obvod, ktery vytvâff 
vybârovy signâl pro pamâf EPROM 
podle vztahu 

CSROM = A15N . BOOT (3) 

Na obr. 2 je zapojenl multiplexeru 
adresy dynamickâ pamâti RWM, kterâ 
mulţi plexuji vodiâe adresovâ sbâmice 


mikropoâftaâe, hradlovanâ vystupy re¬ 
gistru adresy strânky ramdisku a osmy 
bit osvâiovacf adresy dynamickâ pa¬ 
mâti RWM. Integraânf dten RC zpoicfu- 
je sestupnâ hrarty signâiu CASN a tim 
zpoicfuje otevfenf vystupnich datovych 
budiâu dynamickych pamâti. Jeho 
pouiitf bylo vynuceno relativnâ poma- 
lou reakci obvodu 3212 (1036 na 
obr. 3 v [1]) na konec vybârovâho sig¬ 
nâiu. Dochâzelo ke kolizi na datovâ 
sbârnici mikropoâftaâe a tfm i k havârii 
celâho systâmu (programovâ). Dâie je 
na obr. 2 pamâT EPROM s disketovym 
zavâdâcfm programem. Je nazna&eno 
pouiitf pamâti typu 2716 s kapacitou 
2 kB, ale je moino pouift beze zmăny 
zapojenf pamâT s kapacitou ai 32 kB 
(ţj. bu<f typ 27256 nebo odpovfdajfcf 
kapacitu sestavit z pamâti o kapacitâ 
menăf). V tomto pffpadâ by bylo moino 
ceiy systâm vâetnâ pamătf ROM Spec¬ 
tra „natahovat" blokovymi pfenosy 
z tâto pamâti EPROM. 


mfkroefektrortika 23 









































































io 


c 

ti 


I 


O " N <4 iO (O K 



* * * 


S& 

ti 


00C5000000C5C3C3 


jr> "O 
JV o 

5 2 


l r-v i i t U J| | 

f 1 - * "• |l fi P I 



u 


Ki 


Obr. 4. Zâfohovânf pamăti 


Na obr. 3 je zapojenf dynamickych 
pamăti RWM ţcelkem dvă osmice 
obvodu 41256 nebo ekvivalentnich), 
dâvajîcî celkovou kapacitu 512 kB. 

"-Jsou zde takă rezistory, kteră oddăluji 
vystupy osvăiovaciho CftaCe (820R) 
a multiplexeru adresy dynamickă pa¬ 
măti RWM (47R). Tuto pamăf Ize 
sestavit i z obvodu s menSi pamăti, 
popF. jen z jednă osmice obvodu, je 
văak nutno patriCnă pFepoăftat kon- 
stanty ramdisku v tabulce disku 
A v BIOSu a pffpadnă upravit i adresaci 
pamăti na vstupech multiplexeru adres 
dynamickă pamăti. 

Na obr. 4 jsou obvody logiky zâloho- 
vânf obsahu dynamickă pamăti RWM. 
Zâklad je tvofen integrovanymi obvody 
— komparătorem napăti 1059, dftaăem 
1058 (v provedeni CMOS) a ătverici 
hradet NAND (takâ v provedeni 
CMOS). 

Pokud je napâjecî napăti nad mezi, 
kdy zaăinâ pFeklâpăt komparâtor 1059, 
jsou na adresovă vstupy dynamickych 
pamăti pFivâdăny vystupy multiplexeru 
1034—36. V okanrriiku dosaienf kom- 
paraăni urovnă je procesor poiâdân 
o pFidăleni sbămic (aktivacf signâlu 
BUSRQN) a v okamiiku potvrzeni iâ- 
dosti (signâlem BUSAKN) je preklopen 
klopny obvod z hradel NAND 1057 
a odepnuto napâjeni lOI, 34, 35 a 36. 
Timto postupem se spolehlivă zabrânf 
nâhodnămu prepsâni obsahu dynamic¬ 
kych pamăti băhem nabihâni a vypinânf 
zdroje. Integrovană obvody TTL majf 
bez pritomnosti napâjeciho napăti vei- 
mi velky vystupnf odpor, takie se 
chovaji jako by byly ve stavu vysokă 
impedance („tfeti stav“). Experimentâl- 
nă bylo zjiătăno, ie toto Feăeni je 
spolehlivăjăf, nei pouiiti obvodu 
s tFistavovymi vystupy, kteră se pFi 
vypinânf napâjeciho napăti mohou mii- 
kovă âktivovat a zpusobit neiâdouci 
zmănu obsahu năkterych pamăfovych 
bunăk. 


V prubăhu zâlohovaciho cyklu jsou 
napâjeny pouze obvody pamăti RWM 
a obvody 1057 ai 59. Z jednoho hradla 
1057 je vytvoFen multivibrâtor, ktery mâ 
periodu pFi napâjecim napăti 2,7 V asi 
1 ţis. Vystupy ăitaăe 1058 jsou nynl 
pripojeny na adresovă vstupy dynamic¬ 
kych pamăti, signâl RASN je zkrâcen 
asi na 0,5 ai 1 jis pFi napăti 2,7 V. Novă 
typy pamăti maji totii podstatnă menăi 
odbăr, pokud nejsou aktivovâny. Obvo¬ 
dy zâlohovâni byly vyzkouSeny s năkoli- 
ka ruznymi typy dynamickych pamăti 
od ruznych vyrobcu — odbăr z nâhrad- 
niho zdroje byl mezi 20 a 45 mA pFi 
napăti na pouzdru pamăti 3,0 V. PFi 
tomto napăti nebyl zjiătăn vypadek 
uchovâvanâ informace ani v jednom 
pFipadă, kaidâ ze zkouăenych osmic 
pamăti byla takto provozovâna po dobu 
dvou hodin. 


1.2 Obvody pFtpojeni disketovă 
mechaniky 


Obvody pFipojenf disketovă mecha¬ 
niky jsou znâzornăny na obr. 5 ai 7. Pro 
ovlâdâni disketovă mechaniky jsou 
nezbytnă nutnă obvody na obr. 5 0 6, 
obvody na obr. 7 jsou obvody kanâiu 
DMA, kteră jsou vhodnâ pfi vyăăich 
prenosovych rychlostech pro zâznam 
na disketu (napFîklad mechaniky 
5 1/4" s kapacitou 1,2 MB — zâznam 
HD-High Density). PFi pouiiti mechanik 
s polovifini hustotou zâznamu, oznaăo- 
vanych u formâtu IBM DD (Double Den¬ 
sity), neni Fadiă kanâiu DMA nutny, pFe- 
nos dat je moino provâdăt programo- 
vă. 

Na obr. 5 jsou obvody hodinovă 
zâkladny radite floppy diskovă mecha¬ 
niky, separâtoru dat a prekompenzace 
zâpisu na disketu. Tyto obvody jsou 
navrieny tak, aby data na disketă byla 
zâznamovă kompatibiini se zâznamem 
formâtu IBM System 34 Double Density 


(MFM), pouifvanym v podftaăich Fady 
PC-XT. 

Prvnim Ciânkem hodinovă zâkladny 
je krystalem Fizeny multivibrâtor 
z invertoru TTL, kmitajici na kmitoătu 
16,000 MHz. Klopnym obvodem 1015, 
Sestnâctkovym 5ita6em 1019 a klop¬ 
nym obvodem 1018 jsou vytvâFeny 
hodinovă signâly pro rizeni disiicovăho 
fâzovăho zâvăsu, radiCe FD a radiăe 
DMA. 

Obvody prekompenzace zâpisu dat 
jsou tvoFeny ătyfbitovym registrem 
1020 a polovinou dvojitâho tţyfkanâlo- 
văho multiplexeru 1021. Maji za ukol 
zvyraznit odstup mezer a jedniăek 
nahrâvanych dat pro sniieni viivu ko- 
lisâni rychlosti otâăeni diskety v diske- 
tovă mechanice. 

Obvody separâtoru dat maji za ukol 
oddălit data od hodin v signâlu, jdou- 
cfm z diskovă mechaniky. Protoie 
zâznam na disketu je jednostopy, je 
nutno pouiit speciâlni kădovâni, pFi 
kterâm je moino zaznamenat do jed¬ 
noho pfenosovâho kanâiu data i hodiny 
zâroveft. Vzhledem ke koiisâni otâăek 
disketovă mechaniky totii nelze zazna- 
menâvat bfoky săriovych dat bez za- 
kădovâni synchronizaăniho hodino- 
văho kmitoătu. Obvody separâtoru dat 
se skiâdaji z rfzenăho ăfslicovăho fâzo¬ 
văho zâvăsu (1022, 23, 24) a vtastniho 
separâtoru dat, ktery je tvofen klopnym 
obvodem 1018, hradly 1011 a klopnym 
obvodem 1022. Fâzovy zâvăs je Fizen 
signâlem VCO z Fadide, kterym se 
povoluje zasynchronizovâni fâzovăho 
zâvăsu. Ten se diky obsahu pamăti 
PROM 1024 zasynchronizuje jii pFi 
pFichodu druhăho impulsu a je v tomto 
stavu udriovân, pokud je signâl VCO 
aktivni. Vystupem jsou dva signâly 
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Obr. 5. Hodiny, separâtor a prekompenzace zâpisu 


— DW (data window — datovă okno) 
a RDDATA (read data — dtenâ data), 
kteră jsou vedeny ke zpracovâni do 
fadide typu 18272. 

Na obr. 6 je schema propojeni rad ide 
typu 18272 s ostatnîmi obvody, pom oc¬ 
nă hradla fadide a registr ovtâdâni 
disketovych mechanik. Je vhodnă pfi- 
pomenout, te fadid typu 18272 je 
v RVHP vyrâbăn v BLR (oznadeni CM 
609) a v NDR (U8272D). Dâle se na trhu 
objevuje pod oznadenim nPD765, napf. 
od firmy NEC. BU251 informace o tomto 
obvodu najdou zâiemci v [41. 

Registr ovtâdâni disketovych mecha¬ 
nik je tvofen dtyfbitovym registrem 
1040. Vyuiity jsou tfi bity, dva pro vybăr 
ph'sluSnâ mechaniky a jeden pro 
ovlâdâni motoru. Mechaniky muşi mft 
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nastaveny vnitfni propojky tak, aby se 
zapnutf motoru ovlâdaio soudinem sig¬ 
nâlu spuătăni motoru a vybăru mecha¬ 
niky. Pfitaieni hiavidky se ovlădâ soudi¬ 
nem signâlu vybăru mechaniky a vnitfni 
pfipravenosti mechaniky. V BIOSu neni 
vyuiivân signât READY mechaniky, 
protoie ne vSechny mechaniky jej 
poskytujf, aie podită se s maximâini 
moănou dobou, za kterou je mechanika 
od aktivace pfipravena (u pouiită me¬ 
chaniky FD1063 firmy NEC to bylo 
0,8 s). 

Na obr. 7 je schema zapojeni fad ide 
kanâtu pfimăho pffstupu do pamăti 
(DMA) (neni nutny pfi pouiiti zâpiso- 
văho hodinovăho kmitodtu 500 kHz). 
Lze jej ale zapojit a v patici fadide DMA 
(8257), pokud neni kanâl pfimăho 
pfistupu do pamăti vyuiivân, propojit 
nâsledujici vyvody na pfisluănă iogickă 
urovnă: 

DRQ2 — log. 0 


TC — log. 0 

DACK2N — log. 1 

HRQ — log. 0 

AEN — log. 0 

Obvody fadide pfimăho pffstupu do 
pamăti jsou tvofeny viastnfm fadidem 
(1033) a posuvnym dtyfbitovym regis¬ 
trem 1030. Ten zajiăfuje vidy na jeden 
poiadavek o pfenos dat kanâlem DMA 
trvâni signâlu DRQ2 po dobu dtyf 
period hodinovăho signâlu. To zabez- 
peduje pfeneseni prâvâ jednoho bajtu 
fadidem. Registr homi poloviny adresy 
1031 zajiăfuje pfitomnost hornich osmi 
adresovych bitu na adresovă sbâmici, 
protoăe homi poiovina adresovă sbăr- 
nice je multiplexovăna s datovou. Hra- 
dia AND obvodu 1029 spoiu s oddăio- 
vadem 1032 zajiăfuji jednoduchă 
a v tomto pripadă postadujici pfekădo- 
vâni ftdfcf sbârnice mikroprocesoru 
typu 8080 na fidici sbărnici Z80 a zpăt. 
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Obr. 7. Radii DMA pro FDC 
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2. POU2ITE SOUCÂSTKY, 
PRAKTICKE PROVEDENf 

Pou2it6 sou&âstky byly z rady 
74LS ... Co se tyfce praktick6ho prove- 
deni, platf zâsady uvedenâ v [1]. Propo- 
jovacî kabel muşi byt co nejkratSî, 
pokud moino typu ,,twist“ nebo ale- 
spoft mezi kazdymi dvăma ăivymi vo- 
diCi must byt tazena zem. Musfme si 
totii uvădomit, ie vlastnă prodluzujeme 
sbărnici procesoru. 

2.1. Seznam pouiitych int. obvodâ 


74LSOO 
74LS04 
74LS05 
74LS08 
74LS10 
74LS38 
74LS74 
74LS109 
74LS153 
74LS157 
74LS174 
74LS175 
74LS193 
74188 
8286 
3216 
18257 
18272 
2716 
41256 
4011 
4020 
MAC111 


10 1, 2, 3, 4, 5, 6, 11 
10 7, 8, 25, 28 
IO 16 

IO 9, 10, 29, 38 
IO 17 
IO 26, 27 
IO 13, 14, 15, 22 
IO 18 
IO 21 

IO 34, 35, 36 
IO 23 

IO 12, 20, 30, 40 

IO 19 

10 24 

IO 31 

10 32 

10 39 

10 33 

10 37 

10 41—56(16 ks) 

10 57 
10 58 
10 59 


Obr. 6. Pfipojeni disketovă mechaniky 















































3. POPIS PROGRAMOVă 
CĂŞTI 

Ovodem tâto Căşti Ciânku je vhodnâ 
pfipomenout zâkiadni zâsady organiza- 
ce souborQ na disku v operaCnim 
systâmu CP/M. Logickâ zafizeni a Căşti 
souboru jsou ta, na kteră se obraci 
modul BDOS, zatimco modul BIOS 
zajiăfuje propojeni poiadavku modulu 
BDOS dâle na konkrătni fyzickâ zafize¬ 
ni (disketovâ mechaniky) a fyzickă 
soubory na nich. Z tohoto je zfejmâ, ăe 
pfi pouiiti vhodnych prekădovâvacich 
algoritmQ v modulu BIOS je mo2nâ jinâ 
struktura dat na fyzickych discich, ne2 
kterou pfedpoklădă BDOS. Je dokonce 
moină mit na ka2dâ z Sestnâcti 
moinych disketovych mechanik jiny 
formât zăznamu dat. OperaCni systăm 
CP/M poCitâ s nâsledujfci logickou 
strukturou zăznamu dat na disketu: 

văta — zâznam dlouhy 128 bajtu, 

alokaCni btok — poCet văt (konstanta 
BLS viz dâle), kteră jsou alokovâny 
(vyhraăeny) pomoci jednoho bitu 
v bitovă alokaCni mapă disku. lato 
konstanta je v2dy mocninou dvou, 
minimâlnă je rovna osmi. 

Fyzickâ organizace dat na disku je 
nâsledujfci: 

sektor — minimâlni zâznam, ktery Ize 
na disk umistit, 

stopa — datovy objem dosaăitelny bez 
pohybu hlaviCky (tato definice mâ vy- 
znam pouze pro disketovou mechani- 
ku, avăak i v pfipadă ramdisku se tento 
pojem pouăivâ, i kdyi zde ztrâcf svou 
fyzikâlnf podstatu). 

Pokud se nepou2ivâ klasicky zfor- 
mâtovanâ 8" disketa, je ve velkâ vătăi- 
nă pripadu fyzicky sektor vătăi ne2 văta, 
je jejim celistvym nâsobkem. Obdobnâ 
alokaCni blok byvâ celistvym nâsob¬ 
kem fyzickych sektorQ. Pro pfekădo- 
vâni se pou2ivâ tzv. blokujici — deblo- 
kujici algoritmus. Kostra pouiitâho al- 
goritmu je pfevzata z [2]. 

Vypis programu BIOS (Basic Input- 
Output System) je pfipojen. Pfedpo- 
klâdâ se nâsledujici umistăni systâmo- 
vych modulu v pamăti: 

CCP — od adresy OD600H 
BDOS — od adresy ODEOOH 
BIOS — od adresy OECOOH 

Ramdisk mâ kapacitu 480 kB (32 kB 
je nultâ strânka, o nii ji2 byla feC 
v pfedeălâ Câsti Ciânku), je formâto- 
vân po stopâch o velikosti 4 kB, prvnl 
dvă stopy jsou vyhrazeny pro systăm, 
skuteCnâ kapacita ramdisku je tedy 
427 kB. S touto kapacitou je takâ nutno 
poCitat pfi tvofeni konstant v tabulce 
DPB pro ramdisk — velikost alo- 
kaCniho bioku je zvolena 2 kB (tj. pfi 
dană kapacită nejmenăi mo2ny). Pokud 
se aplikuje jiny ramdisk (o jină kapaci¬ 
tă), je nutno pfepoCftat konstanty tabul- 
ky DPB (Disk Parameter Block). Totă2 
plaţi i pro pouiiti jinak formâtovană 
diskety. Jednottivă poloiky tabulky 
DPB maji nâsledujici vyznam: 

SPT — (Sectors Per Track) poCet 
sektoru na stopu, pfiCemi sektorem se 
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mysli v2dy 128 bajtu. Pokud je disketa 
oboustrannâ, tak se vătâinou uvaiuji 
jako stopa oba povrehy, tzn. dvoj- 
nâsobnâ kapacita. 

BSH — (Block SHift) posun bioku. Je to 
dvojkovy logaritmus poCtu văt v alo- 
kaCnim bioku. 

BLM — (Block Mask) maska bioku. 
PoCet văt v alokaCnim bioku minus 
jedna. Je to vlastnă adresa poslednf 
văty v alokaCnim bioku. 

EXM — (EXtend Mask) maska rozSfre- 
ni. PoCet logickych rozăifeni (po 16 kB), 
adresovanych jednou polo2kou adre- 
sâfe minus jedna. Je dâna takto: 


BLS 

DSM <256 

DSM >=256 

1 kB 

0 

_ 

2 kB 

1 

0 

4 kB 

3 

1 

8 kB 

7 

3 

16 kB 

15 

7 


DSM — (Disk Size Max) maximâlnf 
velikost disku, to je celkovâ kapacita 
diskovă jednotky v alokaCnich blocich 
minus jedna (adresa posledniho alo- 
kaCniho bioku). 

DRM — (DiRectory Max) — maximâlni 
velikost adresâfe, poCet polo2ek. adre- 
sâfe minus jedna. Adresâf muşi zabirat 
celistvy poCet alokaCnich blokQ. Plaţi: 

DRM = (X * (BLM + 1) * 4) — 1 

kde X je poCet alokaCnich blokQ adre¬ 
sâfe. 

AL0, AL1 — (ALIocated 0,1) alokovâno 
0,1. Jednâ se o prvni dva bajty alokaCni 
mapy disku. JedniCka v 7. bitu 0. bajtu 
rezervuje 0. blok atd. 

CKS — (ChecK Sum) kontrolnf souCet. 
PoCet sektoru adresâfe testovanych pfi 
zâpisu na pracovni mădium. 

OFF — (OFFset) posunutf. Jednâ se 
o poCet stop rezervovanyeh na poCâtku 
disku. Vătâinou jsou tyto. stopy po- 
u2fvâny pro uio2en( systămu. 

Podrobny popis vypisu programu 
BIOS neuvâdim, funkce jednotlivych 
Câsti programu je objasnăna komentâfi 
pfimo ve vypisu zdrojovâho textu. 


Dalăi Câsti programovăho vybaveni je 
program vystupu na obrazovku v mddu 
64 znaku na fâdek. Tento program je 
uveden takâ ve vypisu zdrojovâho textu 
v assembleru, BIOS pfedpoklâdâ jeho 
umistăni nad videopamăti od adresy 
06800H v „zakrytâ" Câsti pamăti. Proti 
jinym znakovym vystupum na obrazov¬ 
ku je program doplnăn Câsti umo2ftujici 
zpracovâvâni fidicich znaku podle 
ASCII. Pfed jeho volânim se muşi zruăit 
mapovâni pamăti a po provedeni vystu¬ 
pu opăt obnovit. Pferuăeni neni nutno 
zakazovat, je pou2fvân pferuăovaci 
m6d 2 a obsluha se provâdi v horni 
polovină pamăti. To văak plaţi pouze 
pokud mâme zaruCeno, 2e ukazatel 
zâsobnfku mffi do horni poioviny pa¬ 
măti, co2 neni v2dy splnăno. Z toho 
duvodu je rtejjednoduâSfm feăenfm 
pferuăeni zakâzat. Tabulka generâţpru 
znakQ je pou2ita z programu D-Writer 
666. ZO Svazarmu, je văak mo2no 
pou2ft ka2dy generâtor s Ceskymi zna- 
ky. ktery mâ znaky umistăny v horni 
polovină bajtu a pro jeden znak potfe- 
buje osm bajtu. Tabulku generâtoru 
znaku ziskâme z programu D-Writer 
napf. po povelu EXT.-B poveiem SAVE 
„genchrcs“ CODE 35708,1064 (nahra- 
jeme na pâsku). 


2.1 Vytvofeni a oălveni systâmu 

Pro prvni pokusy pfedpoklâdejme, 
2e mâme na pâsce nahranâ nâsledujici 
programy ve formâtu ZX Spectrum: 

1. Program znakovâho vystupu na 

obrazovku(nahrâvâme od 06800H). 

2. Generâtor znaku (nahrâvâme od 

07000H). / 

3. Modul CCP (nahrâvâme od 0D600H). 

4. Modul BDOS (nahrâvâme od 

ODEOOH). 

5. Modul BIOS (nahrâvâme od 

OECOOH). 

Pfed jejich nahrâvânim zakâ2eme 
pfistup BASICu do oblasti systâmu 
napf. poveiem CLEAR 24000. Po na- 
hrâni văech tăchto souboru mu2eme 
teoreticky zaCft pracovat pod ope- 
raCnim systămem CP/M. Po spuătăni 
systâmu pfikazem RANDOMIZE USR 
65408 se smaie obrazovka a vypiăe se 
otaznik. Pokud odpovime y, probâhne 
formâtovâni ramdisku, jinak nenf ram¬ 
disk formâtovân (pfi startu po vypadku 
napâjeciho napăti), je vypsâno uvodni 
hlâăeni BIOSu a systăm se ohlâsi napf. 
0A>. Nyni văak potfebujeme disketo¬ 
vou mechaniku a nahranou disketu se 
zâkladnim programovym vybavenim. 
Pokud jsme se nerozhodfi pro stavbu 
fadiCe dipketovâ mechaniky (at u2 
z jakychkoliv duvodu) a mâme pouze 
ramdisk a kazetovy magnetofon, je 
tfeba nejprve vytvofit program TA- 
PE.COM, ktery nâm umo2n( komunika- 
ci s magnetofonem pod systămem 
CP/M. Tento program je nutno vytvofit 
pod operaCnim systămem Spectra, 
pfelo2it, nahrât do pamăti a pomoci 
krâtkâho pomocnâho programu ve 
strojovâm kădu jej pfenâst do. Câsti 
pamăti od adresy 001OOH. Zde mu2e- 
me s vyhodou vyu2ft mo2nosti pfipnout, 
si nultou strânku ramdisku doprostfed 
systâmovâ pamăti a program, ktery mâ 
byt nahrân od adresy 001 OOH do ni 
nahrajeme od adresy 081 OOH. Pfi pfi- 
pnuti nultâ strânky jako systâmovâ 
pamăti bude ji2 umfstăn od adresy 
001 OOH. Prvnim pfikazem, ktery mu- 
sime zadat po ohlâăeni se systâmu, je 
SAVE 8 TAPE.COM. Cfm2 nahrajeme 
tento program na ramdisk. Mu2eme 
vyu2ivat (nyni ji2 pomărnă velkou), 
programovou zâkiadnu pou2ivanou 
majiteti poCitaCu SHARP, pracujicich 
pod operaCnim systămem CP/M 
s ramdiskem a kazetovym magnetofo¬ 
nem. Prostfednictvim mgf pâsky Ize 
lehee vymăftovat programy a data mezi 
majiteii tăchto dvou rQznych typu po- 
CitaCu, po pfipojeni 8" disketovâ me¬ 
chaniky Ize vymănit programy praktic- 
ky se văemi majiteii profesionâlnă 
vyrâbănych poCitaCQ, pracujicich pod 
systămem CP/M. 


4. UTERATURA 

£1 j Juflk, A.: Postavte si mikropoCftaC 
program ovă kompatibilni se ZX Spec¬ 
trum. RoCenka Amatârskâho radia Mik¬ 
roelektronika 1988, s. 4. 

[2j Richta, K., Zajfc, J.: OperaCni sy¬ 
stăm CP/M pro mikropoCitaCe. Kni2ni- 
ce CSVTS, svazek 14 dfl 1, Praha 1986. 

[3] Johnson, A., Osborne, L: The 
programmer’s CP/M handbook. 
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:delK3 

ryzickeho sektoru 
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ESU 
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E «r 
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90 

H5T5PT 

ESU 

18 

95 

;logick ych 

vet na i ys. sekt 

120 

HSTBLK 

E3U 

4 

105 

;logici ych 

vet na stopu 

110 

CPMSPT 

ESU 

4*18 

115 

;«aska 

cisla vsty 

122 

SECMSK 

ECU 

-J 

125 

îdvaikovy logaritaus HSTaLK 

130 

SECSHF 

ESU 

ai 

i w 5 

WRALL 

EQU 

0 

140 

WRDIR 

ESU 

i 

145 

URUAl 

EQU 

2 

150 

M 

ECU 

*0002 

155 

EOI 

EQU 

«0009 

160 

BPL.RW 

EQU 

«002A 

165 

GPL.FT 

EQU 

*0005 

170 

DTL 

EQU 

«00FF 

175 

SRTHUT 

EQU 

*00CF 

180 

HLTND 

ESU 

«0003 

1E5 

DL 

EQU 

«00E5 

190 

SC 

ESU 

«0009 

195 

CR 

EQU 

#0001) 

200 

LF 

EQU 

«000A 

285 

coaur 

EQU 

*6808 

210 

CHOHE 

EQU 

10002 

—E15 

CBELL 

ESU 

«0007 

220 

CBS 

ESU 

«0008 

->25 

CTAB 

EQU 

*0009 

230 

CL.F 

ESU 

LF 

235 

CFF 

EQU 

#002C 

240 

CCR 

EQU 

CR 

245 

CRQLL 

EQU 

#0011 

250 

CPASE 

EQU 

«0012 

255 

CCLU 

EQU 

#0016 

260 

CUP 

EQU 

*0018 

265 

CRISH 

EQU 

#001A 

270 

CAT 

EQU 

#001B 

275 

CBQRD 

EQU 

«001E 

2S0 

FDCMSR 

EQU 

#0010 

285 

FDCBTR 

EQU 

*0011 

290 

FDCTMR 

EQU 

800/20 

295 

TERCNT 

EQU 

«002F 

300 

RETRY 

EQU 

10 

305 

SEKSIZ 

EQU 

128 

310 

RDSKOF 

EQU 

1 

315 




320 




325 


0R6 

BIOS 

330 




335 

SECTRS 

EQU 

-CCP/SEKSIZ 

340 




345 

ţvektor skoku na 

350 

;podprograay BIQSu 

355 


JP 

BDOT 

360 

WBOOTE 



365 


JP 

«BOOT 

370 


JP 

CONST 

375 


JP 

CONIN 

380 


JP 

CONOUT 

385- 

JP 

LIST 

390 


JP 

PUNCH 

395 


JP 

READER 

400 


JP 

HOME 

405 


JP 

SELDSK 

410 


JP 

SETTRK 

415 


JP 

SETSEC 

420 


JP 

SETDMA 

425 


JP 

REAL 

430 


JP 

«RITE 

435 


JP 

LISTST 

440 


JP 

SECTRA 

445 


JP 

FORMF 


450 

455 jtabulky pro disky 
460 

465 ; raadisk 480 kbyte 
470 DPBASE 


475 

DEFW 

8,8 

480 

DEFW 

0,0 

485 

LEFW 

DIRBUF 

498 

DEFW 

DPBLKR 

495 

DEFW 

CHKBR 

500 

DEFW 

ALL0R 

505 ; 
510 

Floppy disk 360 kByte 
DEFW TRANSF,8 

515 

DEFW 

8,0 

520 

DEFW 

DIRBUF 

525 

DEFW 

DPBLKF 

530 

DEFW 

CHK0F 

535 

DEFW 

ALL8F 


540 


545 ;transforaacni tabulka 
550 ;sektoru floppy disku 
555 TRANSF 


560 



fyzicky sektor 

565 



1 

570 

;Hlava 

0: 

V 

575 


DEFB 

08,01,02,03 $0 

580 


DEFB 

16,17,18,19 ;4 

585 


DEFB 

32,33,34,35 *8 

598 


DEFB 

12,13,14,15 ;3 

595 


DEFB 

28,29,30,31 ;7 

600 


DEFB 

08,09,10,11 ;2 

605 


DEFB 

24,25,26,27 ;6 

610 

. 

DEFB 

84,09,06,87 ;1 

615 


DEFB 

20,21,22,23 ;5 

620 

îHIava 

lî 


625 


DEFB 

36,37,38,39 ;8 

638 


DEFB 

52,53,54,55 ;4 

635 


DEFB 

68,69,78,71 ;8 

640 


DEFB 

48,49,50,51 j3 

645 


DEFB 

64,65,66,67 ;7 

650 


DEFB 

44,45,46,47 ;2 

655 


DEFB 

60,61,62,63 ;6 

660 


DEFB 

40,41,42,43 ;1 

665 


DEFB 

56,57,58,59 ;5 

670 




675 

;tabulka DPB 

pro flDPpydisk 

680 

DPBLKF 



685 


DEFW 

18*4;SPT 

698 


DEFB 

4 ; B5H 

695 


DEFB 

15 ;BLH 

700 


DEFB 

0 ;EXH 

785 


DEFW 

170 ;DSH 

710 


DEFW 

63 ;DRH 

715 


DEFB 

128 ;ALO 

720 


DEFB 

8 ; AL1 

725 


DEFW 

16 ;CKS 

730 


DEFW 

2 ;OFF 

735 




740 

;tabulka DPB 

pro raadisk 

745 

îtrack 

(stopa)» 4 kbyte 

750 

DPBLKR 



755 


DEFW 

8*4 îSPT 

760 


DEFB 

4 ; BSH 

765 


DEFB 

15 ;BLH 

770 


DEFB 

0 ; EXM 

775 


DEFW 

235 îDSH 

780 


DEFW 

63 ;DRH 

785 


DEFB 

128 ;ALB 

790 


DEFB 

0 ; AL1 

795 


DEFW 

16 ;CKS 

800 


DEFW 

2 ; OFF 

805 




818 

;podprograay 

ukladani a 

815 

icteni 

systeau z prvnich 

820 

; stop 

raadisku 

825 

LOADSY 



830 


XOR 

A 

835 


JR 

RWSYS 

840 

SAVESY 



845 


LD 

A,#FF 

850 

RWSYS 



855 


LD 

BC.BIOS-CCP 

860 


LD 

DE,«4000 

865 


LD 

HL,CCP 

870 


OR 

A 

875 


JR 

NZ.RWSYSB 

880 


EX 

DE,HL 

885 

RWSYS8 



890 


Dl 


895 


LD 

A.RDSKOF 

900 


OUT 

(3) ,A 

905 


LD 

A,130 

910 


OUT 

(4) ,A 

915 


LDIR 


920 


LD 

A, #20 

925 


OUT 

(4),A 

930 


RET 


935 




940 

;podprograay 

funkci BIOSu 


950 ;inicializace 
955 ;vstup po pocatecnia zave 
960 ;deni systeau pocatecnia 
965 ţzavadecea z paaeti ROM 
970 BOQT 


975 


XOR 

A 

980 


LD 

(IOBYTE) ,A 

985 


LD 

(SEKDSK) , A 

990 


LD 

(HSTACT),A 

995 


LD 

IUNACNT) ,A 

1000 


LD 

HL,HLASDT 

1005 


CALL 

TEXTCO 

1010 


JP 

60CPH 

1015 

WBOOT 



1028 


DI 


1025 


LD 

SP,»80 

1030 


XOR 

A 

1035 


LD 

(HSTACT) ,A 

1048 


LD 

(UNACNT),A 

1045 


LD 

C,i 

1050 


CALL 

SELDSK 

1055 


CALL 

HOME 

1068 


CALL 

LOADSY 

1065 

;konec 

zavlekani, iniciali- 

1070 

;zace . 

a vstup 

do systeau 

1075 

SOCPM 



1080 


DI 


1085 


LD 

A,*C3 

1098 


LD 

(0), A 

1095 


LD 

HL,WBOOTE 

1100 


LD 

CI),HL 

1185 


LD 

1S >»A 

1110 


LD 

HL,BD0S+6 

1115 


LD 

(6),HL 

1120 


LD 

IC,#§880 

1125 


CALL 

SETDMA 

1138 


XOR 

A 

1135 


OUT 

(6) ,A 

1140 


LD 

(FDCTIM),A 

1145 


LD 

(HSTACT) ,A 

1150 


LD 

(UNACNT),A 

1155 


LD 

(0F 681),A 

1160 


IN 

A,(FDCMSR) 

1165 


CP 

#FF 

1170 


JR 

Z.GOCPHB 

1175 


LD 

A, #88 

1188 


OUT 

(6) , A 

1185 


XOR 

A 

1190 


OUT 

(6) ,A 

1195 


LD 

HL,FDCSPE 

1200 


CALL 

FDCOUT 

1285 


CALL 

HOMEF 

1210 

60CPM8 



1215 


LD 

A,«FB 

1228 


LD 

I, A 

1225 


IM 

2 

1230 


LD 

HL,INTERT 

1235 


LD 

(#FEFF),HL 

1248 


LD 

A,(SEKDSK) 

1245 


LD 

C,A 

1250 


EI 


1255 


JP 

CCP 

1260 




1265 

;uvodni hlaseni BIOSu 

1270 

HLASDT 



1275 


DEFB 

CFF 

*64K CP/M “ 

1280 


DEFM 

1285 


DEFH 

"var. 2.26* 

1298 


DEFB 

CCR,CLF,CLF 

1295 


DEFM 

" BIOS for " 

130» 


DEFM 

"ZX Spectrua" 

1305 


DEFM 

* A.Jurik * 

1310 


DEFM 

"1988" 

1315 


DEFB 

CCR,CLF 

1320 


DEFM. 

" raadisk " 

1325 


DEFM 

"size 472" 

1330 


DEFM 

" kByte* 

1335 


DEFB 

CCR,CLF,0 

1340 




1345 

jpodprograay 

pro V/V 

1350 




1355 

?stav 

klavesnice 

1360 

;0 * 

neni stisknuto 

1365 

îFF = 

je pripraven znak 

1378 

CONST 



1375 


CALL 

INKEY 

1380 


OR 

A 

1385 


RET 

Z 

1390 


LD 

A,-l 

1395 


RET 


1488 




1485 

;cteni 

znaku 

z klavesnice 







1415 

PUSH 

HL 

1935 


LD 

A,C 

1420 

1425 

LD 

HL,STAT 

1940 


LD 

(SEKSCR), A 

CQNCS2 


1945 


SRL 

A 

1430 

CALL 

CI 

1950 


SRL 

A 

1435 

CP 

*Q" 

1955 


LD 

(SEKSEC)., A 

1440 

JR 

Z, CONCS 

1968 


RET 


1445 

CP 

"q" 

1965 




1450 

JR 

Z,CONCS 

1978 

îpreklad cisla sektoru 

1455 

RES 

0,(HL) 

1975 

; v BC 

poaoci prekladove 

1460 

CONCS0 


1980 

jtabulky v 

DE 

1465 

POP 

HL 

1985 

SECTRA 



1470 

RET 


1990 


LD 

H,B 

1475 

CONCS 


1995 


LD 

L,C 

1480 

BIT 

8,(HL) 

2000 


LD 

A,(SEKDSK) 

1485 

JR 

Z.C0NCS1 

2005 


AND 

A 

1490 

RES 

0,(HL) 

2010 


RET 

Z 

1495 

JR 

CONC50 

2015 


EX 

DE.HL 

1500 

CONCS1 


2020 


ADD 

HL.BC 

1505 

SET 

0,(HL) 

2825 


LD 

L,(HL) 

1510 

SET 

1,(HL) 

2030 


LD 

H,0 

1515 

JR 

C0NCS2 

2035 


RET 

, #' 

1528 



2040 


adresy na 

1525 

îvystup znaku z C na konzolu 

2045 

;nastaveni 

1530 

CQNOUT 


2050 

;adresu z BC 

1535 

DI 


2055 

SETDMA 



1548 

XOR 

A 

2068 


LD 

(DMAAD),BC 

1545 

OUT 

(4) ,A 

2065 


RET 

1558 

LD 

(STACK),SP 

2070 




1555 

LD 

SP,#6FFF 

2075 

îprovedeni 

operace cteni 

1560 

CALL 

COOUT 

2080 

îsektoru z 

disku 

1565 

LD 

SP,(STACK) 

2085 

READ 


1570 

LD 

A,«20 

2090 


LD 

A,(SEKDSK) 

1575 

OUT 

(4) ,A 

2895 


AND 

A 

1588 

EI 


2100 


JR 

NZ,READF 

1585 

RET 


2185 

READR 


1598 



2118 


CALL 

DHAPOS 

1595 

îtisk znaku 

z C registru 

2115 


JR 

Z,READR0 

1600 

LIST 


2120 


CALL 

TRANSR 

1605 

îvlozit podprograa vystupu 

2125 


LD 

DE,DHABUF 

1618 

îznaku z C registru na 

2138 


CALL 

READSR 

1615 

;tiskarnu 


2135 


LD 

HL,DMABUF 

1620 

RET 


2140 


LD 

DE, (DMAAD) 

1625 



2145 


LD 

BC.SEKSIZ 

1638 

;stav tiskarny 

2150 


LDIR 

1635 

LISTST 


2155 


XOR 

A 

1640 

îvlozit podprograa testu 

2160 


RET 


1645 

;pripravenosti tiskarny 

2165 

READR0 


' . 

16S0 

îprijaout znak 

2170 


CALL 

TRANSR 

1655 

LD 

A,-l 

2175 


LD 

DE, (DMAlAD) 

1660 

RET 


2180 


CALL 

READSR 

1665 



2185 


XOR 

A 

1670 

îderovani znaku z C 

2190 


RET 


1675 

PUNCH 


2195 

READF 


1680 

îderovac nepripojen 

2208 


XOR 

A~ 

1685 

RET 


2205 


LD 

(UNACNT),A 

1690 

;cteni znaku 


2210 


INC 

A 

1695 

ze sniaace 

2215 


LD 

(READOP),A 

1708 

1785 

îdo A 

READER 


2220 

2225 


LD 

LD 

(RSFLA6),A 
A.HRUAL 

1710 

;smaac nepripojen, cte se 

2230 


LD 

(NRTYPE) ,A 

1715 

;vzdy konec zaznaau (CTRL 2) 

2235 


JP 

RHOPER 

1720 

LD 

A,«IA 

2240 



1725 

RET 


2245 

îprovedeni < 

operace zapisu 

1730 



2258 

îsektoru na 

disk 

1735 

îpodprograay 

obsluhy disku 

2255 

WRITE 


1740 



2260 


LD 

A,(SEKDSK) 

1745 

;nastav nultou stopu 

2265 


AND 

A 

1750 

;aktualniho 

disku 

2270 


JR 

NZ,HRITEF 

1755 

HOME 


2275 

WRITER 



1768 

LD 

A,(HSTHRT) 

2280 

CALL 

DMAPOS 

1765 

OR 

A 

2285 


JR 

Z,WRITR0 

1770 

JR 

NZ,HOMED 

2290 


LD 

DE,DMABUF 

1775 

LD 

(HSTACT),A 

2295 


LD 

HL,(DMAAD) 

1780 

HOMED 


2388 


LD 

BC.SEKSIZ 

1785 

XOR 

A 

2305 


LDIR 

1790 

LD 

(SEKTRK),A 

2310 


CALL 

TRANSR 

1795 

RET 


2315 


LD 

DE,DMABUF 

1800 



2328 


EX 

DE.HL 

1885 

îvyber diskove aechaniky 

2325 


CALL 

READSR 

1810 

*specifikovane C registrea 

2330 


XOR 

A 

1815 

SELDSK 


2335 


RET 


1820 

LD 

A,C 

2340 

MRITR0 



1825 

CP 

2 

2345 


CALL 

TRANSR 

1830 

LD 

HL, 0 

2350 


LD 

DE,(DMAAD) 

1835 

RET 

NC 

2355 


EX 

DE.HL 

1840 

LD 

(SEKDSK),A 

2360 


CALL 

READSR 

1845 

LD 

L, A 

2365 


XOR 

A 

1850 

ADD 

HL,HL 

2378 


RET 


1855 

ADD 

HL ,HL 

2375 

HRITEF 


1860 

ADD 

HL.HL 

2380 


XOR 

A 

1865 

ADD 

HL, HL 

2385 


LD 

(READOP),A 

1870 

LD 

DE.DPBASE 

2390 


LD 

A,C 

1875 

ADD 

HL,DE 

2395 


LD 

(MRTYPE),A 

1880 

RET 


2480 


CP 

HRUAL 

1885 



2405 


JR 

NZ .CHKUNA 

1898 

jnastaveni stopy dane 

2410 


LD 

A.BLKSIZ/128 

1895 

;registrea C 


2415 


LD 

(UNACNT),A 

1908 

SETTRK 


2428 


LD 

A,(SEKDSK) 

1905 

LD 

(SEKTRK),BC 

2425 


LD 

(UNADSK),A 

1910 

RET , 


2430 


LD 

HL,(SEKTRK) 

1915 



2435 


LD 

(UNATRK),HL 

1920 

;nastaveni sektoru 

2448 


LD 

A,(SEKSCR) 

1923 

îdaneho registrea C 

2445 


LD 

(UNASEC),A 

1930 

SETSEC 


2450 

îtest 

pokr. 

v neal. zapisu 


2455 

CHKUNA 



2460 


LD 

A,(UNACNT) 

2465 


OR 

A 

2470 


JR 

Z,ALLOC 

2475 

îPokr 

v neal. 

zapisu 

2480 


DEC 

A 

2485 


LD 

(UNACNT) ,A 

2490 


LD 

A,(SEKDSK) 

2495 


LD 

HL,UNADSK 

2508 


CP 

(HL) 

2505 


JR 

NZ,ALLOC 

2510 

îstejne disky 

,stejne stopy? 

2515 


LD 

HL,(UNATRK) 

2520 


CALL 

STCMP 

2525 


JR 

NZ,ALLOC 

2530 

istejny sektor? 

2535 


LD 

A,(SEKSCR) 

2540 


LD 

HL,UNASEC 

2545 


CP 

(HL) 

2550 


JR 

NZ,ALLOC 

2555 

îpriprava adresy pro 

2560 

îpristi zapis 


2565 


INC 

(HL) 

2570 


LD 

A,(HL) 

2575 


CP 

CPMSPT 

2580 


JR 

C, NOOVF 

2585 

î dai si 

stopa 


2598 


LD 

(HL),0 

2595 


LD 

HL,(UNATRK) 

2608 


INC 

HL 

2605 


LD 

(UNATRK).HL 

2618 

;sboda 

neni treba predecitat 

2615 

NOOVF 


- 

2620 


XOR 

A 

2625 


LD 

(RSFLAB),A 

2630 


JR 

RHOPER 

2635 

îzapis 

do alokovaneho. 

2640 

îje treba predecist 

2645 

ALLOC 



2650 


XOR 

A 

2655 


LD 

(UNACNT),A 

2660 


INC 

A 

2665 


LD 

(RSFLAB),A 

2678 

RHOPER 



2675 


XOR 

A 

2680 


LD 

(ERFLAB),A 

2685 


LD 

A,(SEKSEC) 

2690 


LD 

(SEKHST).A 

2695 

îje aktivni vyrovnavaci 

2700 

îPaaet? 


2705 


LD 

HL,HSTACT 

2710 


LD 

A,(HL) 

2715 


LD 

(HL),1 

2720 


OR 

A 

2725 


JR 

Z,FILHST 

2730 

îano. Obsahuje pozadovany 

2735 

.î sektor? 


2740 


LD 

A,(SEKDSK) 

2745 


LD 

HL.HSTDSK 

2751 


CP 

(HL) 

2755 


JR 

NZ,NOHATC 

2760 

îstejny disk. 

Stejna stopa? 

2765 


LD 

HL,(HSTTRK) 

2771 


CALL 

STCMP 

2775 


JR 

NZ,NOHATC 

2788 

îstejny disk i 

i stopa. 

2785 

îStejny sektor? 

2790 


LD 

A,(SEKHST) 

2795 


LD 

HL.HSTSEC 

2800 


CP 

(HL) 

2805 


JR 

Z,HATCH 

2810 

îpozadovany jiny sektor nez 

2815 

îten ve vyrovnavaci paaeti 

2820 

NOHATC 



2825 


LD 

A,(HSTHRT) 

2830 


OR 

A 

2835 


CALL 

NZ.HRHST 

2840 

înapln 

vyrovnavaci paaet 

2845 

FILHST 



2858 


LD 

A,(SEKDSK) 

2855 


LD 

(HSTDSK),A 

2860 


LD 

HL,(SEKTRK) 

2865 


LD 

(HSTTRK),HL 

2870 


LD 

A, (SEKHST) 

2875 


LD 

(HSTSEC),A 

2888 


LD 

A, (RSFLAB) 

2885 


OR 

A 

2890 


CALL 

NZ.RDHST 

2895 


XOR 

A 

2908 


LD 

(HSTHRT),A 

2985 

îpresun data do nebo 

2910 

îz vyrovnavaci 

. paaeti 

2915 

HATCH 



2928 


LD 

A.(SEKSCR) 

2925 


AND 

SECMSK 

2938 


LD 

L,0 

2935 


LD 

H,A 

2940 


SRL 

H 

2945 


RR 

L 

2951 


LD 

DE.HSTBUF 

2955 

v .. 

ADD 

HL.DE 

2960 


EX 

DE.HL 

2965 


LD 

HL,(DMAAD) 

2970 


LD 

BC,128 




» 


2975 LB A»(REABOP) 

2969 OR A 

2985 JR NZ.RWHOVE 

2998 ţzapis, aznac a obrat seer 

2995 LB A»l 

3998 LB (HSTNRT),A 


3985 

EX 

DE.HL 

3818 

jpresun 128 

byte 

3815 

;z (HL) do 

(BE) 

3828 

RWHOVE 


3925 

EX 

BE.HL 

3938 

IDIR 


3835 

;data byla i 

presunuta z/do 

3848 

;H5TBUF 


3845 

LB 

A, (WRTYPE) 

3858 

CP 

WRDIR 

3855 

LB 

A,(ERFLA6) 

3868 

RET 

NZ 

3865 

;zapis do adresare je trefc 

3878 

;pravest ihned 

3875 

OR 

A 

3688 

RET 

NZ 

3885 

XOR 

A 

3898 

LB 

(HSTNRT),A 

3895 

CALL 

WRHST 

3188 

LB 

A,(ERFLA6) 

3185 

RET 



3116 

3115 ;prevod logickeho cisla 
3129 ssektoru na fyzicke 
3125 ;pra raadisk 
3139 ;vstup; (SEKSEC),(SEKTRK) 
3135 ţvystup: HL - pocatecni 
3149 5 adresa sektoru o 

3145 ; delce 126 byte 


3158 

TRANSR 


3155 

LB 

A,(SEKTRK) 

3168 

LB 

E,0 

3165 

LB 

D,A 

3178 

SRL 

B 

3175 

RR 

E 

3188 

SRL 

D 

3185 

RR 

E 

3198 

SRL 

D 

3195 

RR 

E 

3288 

iv B Fyzicky 

track, 

3285 

ţv E nizsi bity adresy 

3218 

LB 

A,D 

3215 

ABB 

A.RDSKOF 

3228 

OUT 

(3) , A 

3225 

SRL 

E 

3238 

LB 

HL.MffB 

“^235 

LB 

A,E 

3248 

ABB 

A,H 

3245 

LB 

H, A 

3258 

LB 

A,(SEKSCR) 

3255 

SRL 

A 

3268 

RR 

L 

3265 

OR 

H 

3278 

LB 

H.A 

3275 

RET 


3288 



3285 

;zjisteni nutnosti pouziti 

3298 

;vyrovnavaciho bufferu pro 

3295 

ţoperaci s raediskee 

3388 

}vystup Z - 

2 neni treba 

3385 

9 

1 je treba 

3318 

BHAPOS 


3315 

LB 

BE,(BHAAB) 

3320 

LB 

HL,128 

3325 

ABB 

HL.DE 

3330 

LB 

A,H 

3335 

AND 

IC0 

3340 

RET 

Z 

3345 

^3 

A,D 

3358 

AND 

*C0 

o o 5 5 

CP 

#C8 

3360 

RET 





3370 

îpodprogra» 

cter»i /zapisu 

3375 

:sefctoru z raedisku 

3338 

READSR 


3385 

LB 

BC,128 

3390 

LD 

A, *30 

3395 

DI 


3400 

aur 

(4) ,A 

3485 

LDIR 


34ta 

LB 

A, 822 

3413 

OUT 

(4 ! * A 

3420 

z r 


3425 

RET 


3430 



. 3435 

spadprograe 

pro 16 bitove 

3440 

; porovnani 


3445 

:vstup: HL 

- tUNATRK) nebo 

3450 


(HSTTRK) 

3455 

: (SEKTRK) 

3468 

ţvystup: Z - 

i u 3 ejuB 

3465 


I razne 

347e 

STCHF 


3«75 

; 

BE, (SEKTRK) 

3480 

LB 

fi.L 

3485 

CP 

E 

3490 

RET 

NZ 


3495 

LB 

A,H 

3500 

CP 

B 

3505 

RET 


3510 



3515 

;podproara« i 

povelu FBC 

3522 

;vstup: HL - 

adresa oocatkii 

3525 


datovebo bloku 

3530 

FDCQUT 


3535 

LD 

C,FDCBTR 

3542 

LD 

B,(HL) 

3545 

INC 

HL 

3550 

TBCOUa 


3555 

IN 

A,i FBCHSR) 

3560 

ANI 

XC» 

3565 

CP 

«80 

3570 

JR 

NZ,FDCQU2 

3575 

DUTI 


3580 

w h 

NZ,FBCOU0 

3585 

. IN 

A,(FBCHSR) 

3590 

RET 


3595 



3600 

?podprogr as 

vstupu vysiabku 

3605 

;po provedeni povelu FBC 

3610 

:vstup: HL - 

adresa pocatku; 

3615 

: 

ukladam dat 

5620 

; B 

- delka bloku 

3625 

FDCIN 


^6^8 

LD 

C.FDCDTR 

36 -j 5 

FDCI.0 


3640 

IN 

A,(FBCHSR) 

3645 

AND 

*C0 

3650 

CP 

«C0 

3655 

JR 

NZ,FBCI_0 

3660 

INI 


3665 

JR 

NZ,FDCI.0 

.3670 

RET 


3675 



3688 

;podprogra«y 

■f yzickeho 

3685 

ţzapisu nebo 

cteni 

3698 

;sektoru floppydisku 

3695 

;vstup : (HSTDSK) - disk 

3788 

; *HSTTRK) - stopa 

3705 

; (h'STSECi - sektor 

3718 

; preş WRKST - zapis 

3715 

; preş RDHST - cteni 


3720 :zapisuje/cte se HSTSIZ 
3725 îbyte z/do HSTBUF 


3738 ;vystup|s nastaveni (ERFLA65 
3735 WRHST- 


3748 

LD 

A,#45 

3745 

LB 

L,§80 

3750 

JR 

FBCHST 

3755 RDHST 



3768 

LD 

A, «46 

3765 

LD 

L,#48 

3778 FBCHST 



3775 

LB 

(FDCRW+Î),A 

3788 

LB 

A,L 

3785 

LB 

(DHAREG),A 

3798 

XOR 

A 

3795 

LB 

(ERFLAS),A 

3800 

LB 

A,RETRY 

3805 

LB 

(PRETRY),A 

3318 FBCHS4 



3815 

CALL 

WAIT 

3828 

CALL 

SELTRK 

3825 

LD 

A,(HSTTRK) 

3830 

LD 

(FDCRN+3),A 

3835 

LD 

A, (HSTSEC) 

3848 

LD 

B,A 

3845 

SUB 

9 

3858 

JR 

NC,FBCHSB 

3855 

LB 

A,B 

3868 

INC 

A 

3865 

LD 

(FDCRN+5),A 

3870 

XOR 

A 

3875 

JR 

FBCHS1 

3888 FBCHSB 



3885 

INC 

A 

3898 

LB 

(FDCRM+5),A 

3895 

LD 

A, 1. 

3908 FBCHS1 



3905 

LB 

(FBCRN+4),A 

3910 

RLCA 


3915 

RLCA 


3928 

LB 

B,A 

3925 

LB 

A,(HSTDSK) 

3938 

OR 

B 

3935 

LD 

(FDCRW+2),A 

3948 

LD 

HL,FDCRW 

3945 

Dl 


3950 

CALL 

FBCBUT 

3955 

LB 

A,(DHARE6) 

3968 

BIT 

7,A 

3965 

LB 

HL.HSTIUF 

3970 

LB 

C,FDCDTR 

3975 

LB 

D.HSTBLK 

3988 

CALL 

WRHS 

3985 

EI 


3998 

LB 

(ERFL6B),A 

3995 

LB 

B ,7 

4888 

LB 

HL,FDCRES 

4085 

CALL 

FBC IN 

4818 

LD 

A,(FBCRES) 


4815 


ANB 

»C« 

4828 


JR 

Z,FDCHS2 

4825 


LB 

A, 1 

4838 

FBCHS3 



4835 


LB 

(ERFLAB),A 

4848 


LB 

A,(ERFL60) 

4845 


OR 

A 

4850 


JR 

NZ.FBCHS5 

4855 


LB 

A,(ERFLAB) 

4B68 


OR 

A 

4865 


JR 

NZ.FDCHS5 

4878 


RET 


4875 

FBCHS2 



4088 


XOR 

A 

4885 


JR 

FDCHS3 

4898 

FBCHS5 



4095 


LB 

A,(PRETRY) 

4188 


DEC 

A 

4185 


LD 

(PRETRY),A 

4118 


LB 

A,-l 

4115 


RET 

Z 

4120 


JR 

FDCHS4 

4125 

WRHS 



4138 


JR 

NZ,WRHSTN 

4135 

NRHSTR 



4148 


LB 

B.SEKSIZ 

4145 

WRHSR1 



4158 


IN 

A,(FBCHSR) 

4155 


CP 

#FB 

4168 


JR 

Z,WRHSR2 

4165 


CP 

*D0 

4178 


JR 

Z NRHSR9 

4175 


JR 

NRHSR1 

4188 

WRH8R2 



4185 


INI 


4198 


JR 

NZ,WRHSR1 

4195 


BEC 

B 

4288 


JR 

NZ,NRHSTR 

4285 


OUT 

(TERCNT)»A 

4218 


XOR 

A 

4215 


RET 


4228 

MRKSR9 



4225 


LD 

A,“l 

4238 


RET 


4235 

WRHSTN 



4248 


LB 

B.SEKSIZ 

4245 

WRHSW1 



4258 


IN 

A, (FBCHSR) 

4255 


CP 

«BB 

4268 


JR 

Z,NRHSW2 

4265 


CP 

«BB 

4278 


JR 

Z.WRHSR9 

4275 


JR 

NRHSW1 

4288 

NRHSW2 



4285 


OUTI 


4298 


JR 

NZ.WRHSWl 

4295 


DEC 

B 

4388 


JR 

NZ,WRHSTW 

4385 


OUT 

(TERCNT), A 

4318 


XOR 

A 

4315 


RET 



4329 

4325 jpodprograe nastaveni DMA 
4338 ţkontroleru 8257 
4335 ; vstups L - bity R/8 z TC 
4348 î BE - poc. adresa 


4345 ; 

BC - 

delka bloku 

4358 STDHAC 



4355 

LB 

IC,HSTSIZ 

4360 

LB 

DE.HST1UF 

4365 STBHC8 



4378 

LB 

A, *44 

4375 

OUT 

(*2B),A 

4388 

LB 

A,C 

4385 

OUT 

(•25),A 

4398 

LD 

A,1 

4395 

OR 

L 

4488 

OUT 

(•25),A 

4485 

LB 

A.E 

4418 

OUT 

(•24) ,A 

4415 

LD 

A.D 

4428 

OUT 

(§24),A 

4425 

RET 



4435 jpodprograe nastaveni stopy 
4448 jFloppy disku z H8TTRK 
4445 ;vystup: (ERFLAB),(PCN) 

4458 SELTRK 


4455 

LD 

A,(HSTTRK) 

4468 

OR 

A 

4465 

JR 

Z.HQHEF 

4478 

LB 

(FDCSC+3),A 

4475 

LB 

A,(HSTDSK) 

4488 

LB 

(FBCSC+2) ,A 

4485 

LD 

HL.FBCSC 

4490 

CALL 

FDCOUT 

4495 

JR 

HOHEF0 

4508 

spodprograa 

fyzickeho 

4585 

$nastaveni eechaniky na 

4518 

inultou stopu 

4515 

HQHEF 


4528 

CALL 

HAIT 

4525 

LB 

A,(SEKBSK) 

4538 

LB 

(FDCHOH+2) ,i 


4535 


LD 

HL,FDCHQH 

5065 


LD 

C, A 

5585 ;rutina volana pri kazd 

4548 


CALL 

FDCOUT 

5070 


CALL 

FDCOC 

5598 ;preruseni 


4545 

HDMEF0 



5075 


LD 

A, (SECTOR) 

5595 KEYB 



4550 


IN 

A,(FDCHSR) 

5080 


LD 

C, A 

5608 

LD 

HL.KS0 

4555 


BIT 

7, A 

5085 


CALL 

FDCOC 

5685 KLOOP 



4568 


JR 

Z ,HQHEF0 

5090 


LD 

C,2 

5618 

LD 

B,(HL) 

4565 


LD 

A,8 

5095 


CALL 

FDCOC 

5615 

INC 

B 

4578 


OUT 

(FDCDTR),A 

5108 


LD 

A,(SECTOR) 

5620 

JR 

Z.KCH 

4575 

H0HEF1 



5105 


INC 

A 

5625 

INC 

• HL 

4588 


IN 

A,(FDCHSR) 

5110 


CP 

10 

5630 

DEC 

(HL) 

4585 


BIT 

7, A 

5115 


JR 

NZ.FORHT0 

5635 

DEC 

HL 

4598 


JR 

Z.HOHEFl 

5120 


LD 

HL,FDCRES 

5648 

JR 

NZ.KCH 

4595 


IN 

A,(FDCDTR) 

5125 


LD 

1,7 

5645 

LD 

(HL),-l 

4680 


BIT 

5, A 

5130 


CALL 

FDCIN 

5650 KCH 



4685 


PUSH 

AF 

5135 


LD 

A, (FDCRES) 

5655 

LD 

A,L 

4610 

H0HEF2 



5140 


AND 

*C0 

5660 

LD 

HL.KS4 

4615 


IN 

A, (FDCHSR) 

5145 


CP 

*80 

5665 

CP 

L 

4628 


BIT 

7,A 

5150 


JR 

Z, FORHTF 

5670 

JR 

NZ,KLOOP 

4625 


JR 

Z,H0HEF2 

5155 


LD 

A,(HEAD) 

5675 

CALL 

CIN 

4630 


IN 

A,(FDCDTR) 

5160 


OR 

A 

5680 

OR 

A 

4635 


POP 

AF 

5165 


EI 


5685 

RET 

Z 

4640 


JR 

Z.HOHEF0 

5170 


RET 

NZ 

5690 

LD 

HL.KS0 

4645 


RET 


5175 


INC 

A 

5695 

CP 

(HL) 

4650 




5188 


JR 

FORHT1 

5700 

JR 

Z.KREP 

4655 

;podprograa 

foraatovani 

5185 

FDCOC 



5785 

EX 

DE,HL 

4668 

;raadisku 


5190 


IN 

A, (FDCHSR) 

5710 

LD 

HL.KS4 

4665 

FORHR 



5195 


AND 

«C0 

5715 

CP 

(HL) 

4670 


DI 


5200 


CP 

«80 

5720 

JR 

Z,KREP 

4675 


LD 

A.RDSKOF 

5205 


J R 

NZ,FDCOC 

5725 

LD 

B,(HL) 

4680 


OUT 

(3) ,A 

5210 


LD 

A,C 

5730 

INC 

B 

4685 


LD 

A,*30 

5215 


OUT 

(FDCDTR),A 

5735 

JR 

Z,KNEW 

4690 


OUT 

(4) ,A 

5220 


RET 


5740 

EX 

DE,HL 

4695 


LD 

HL,*4000 

5225 




5745 

LD 

B,(HL) 

4780 


LD 

DE,*4801 

5230 

;podprograa 

hlaseni chyby 

5750 

INC 

B 

4785 


LD 

BC,*7FFF 

5235 

;v prubehu foraatovani 

5755 

RET 

NZ 

4710 


LD 

(HL),*E5 

5240 

FORHTF 



5768 KNEW 



4715 


LDIR 


5245 


LD 

HL,HLASFO 

5765 

LD 

E, A 

4728 


LD 

A, *20 

5250 


CALL 

TEXTCO 

5770 

LD 

(HL) ,A 

4725 


OUT 

(4) , A 

5255 


LD 

A,(SEKTRK) 

5775 

INC 

HL 

4730 


RET 


5260 


CALL 

CONUH 

5788 

LD 

(HL) ,5 

4735 




5265 


LD 

HL,HLASEN 

5785 

INC 

HL 

4748 

;podprograa 

vystupu zpravy 

5270 


CALL 

TEXTCO 

5790 

LD 

A,(KS9) 

4745 

;na konzolu 


5275 


RET 


5795 

LD 

(HL) ,A 

4758 

TEXTCD 



5280 

CONUH 



5880 

INC 

HL 

4755 


LD 

A,(HL) 

5285 


PUSH 

AF 

5805 

LD 

A,E 

4760 


OR 

A 

5290 


CALL 

CONUH1 

5810 

LD 

(HL) ,A 

4765 


RET 

Z 

5295 


POP 

AF 

5815 KEND 



4770 


INC 

HL 

5380 


RRCA 


5820 

LD 

(K58) ,A 

4775 


PUSH 

HL 

5305 


RRCA 


5825 

SET 

5,(IY+8) 

4780 


LD 

C, A 

5310 


RRCA 


5830 

RET 


4785 


CALL 

CQNOUT 

5315 


RRCA 


5835 KREP 



4790 


POP 

HL 

5320 

CONUH1 



5840 

INC 

HL 

4795 


JR 

TEXTCO 

5325 


AND 

#8F 

5845 

LD 

(HL) ,5 

4880 




5338 


ADD 

A,6 

5858 

INC 

HL 

4805 

;podprograa 

spousteni 

5335 


BIT 

4,A 

5855 

DEC 

(HL) 

4810 

;dlsketove aechaniky 

5340 


JR 

NZ,CONUH9 

5860 

RET 

NZ 

4815 

HAIT 



5345 


SUB 

6 

5865 

LD 

A,(KSA) 

4828 


DI 


5350 


JR 

CQNUM8 

5870 

LD 

(HL) , A 

4825 


LD 

HL,FDCTIH 

5355 

C0NUH9 



5875 

INC 

HL 

4838 


LD 

A,(HL) 

5360 


INC 

A 

5880 

LD 

A,(HL) 

4835 


OR 

A 

5365 

C0NUH8 



5885 

JR 

KEND 

4848 


JR 

NZ,WAIT0 

5378 


ADD 

A, *30 

5890 



4845 


LD 

A,5 

5375 


LD 

C,A 

5895 ;klavesnice 

CP/H Spectr 

4858 


OUT 

(6) ,A 

5380 


CALL 

CONOUT 

5900 :(C) DaJe. 1987 

4855 


LD 

A,FDCTHR«2 

5385 


RET 


5905 CIN 



4860 


LD 

(HL),fi 

5390 

HLASFO 



5910 

LD 

BC,*FEFE 

4865 

HAIT0 



5395 


DEFH 

"Bios err: " 

5915 

LD 

D,0 

4878 


EI 


5400 


DEFH 

"format error" 

5920 KLOOP1 



4875 


LD 

A,(HL) 

5405 


DEFH 

on track " 

5925 

LD 

A.D 

4888 


CP 

FDCTHR+1 

5410 


DEFB 

0 

5930 

LD 

E,*1F 

4885 


JR 

NC,WAIT0 

5415 

HLASEN 



5935 

CP 

0 

4898 


LD 

(HL),FDCTHR 

5420 


DEFB 

CCR,CLF,8 

5948 

JR 

NZ,DAL1 

4905 


RET 


5425 




5945 

LD 

E,*1E 

4910 




5430 

îpodprograa 

obsluhy / 

5950 DAL1 



4915 

ţpodprograa 

i oraatovani 

5435 

jpreruseni 


5955 

CP 

7 

4920 

ii loppydisfcu 


5440 

INTERT 



5968 

JR 

NZ.DAL2 

4925 

FORMF 



5445 


DI 


5965 

LD 

E,*1D 

4930 


CALL 

HOHEF 

5450 


PUSH 

AF 

5970 DAL2 



4935 


LD 

A,39 

5455 


PUSH 

DC 

5975 

IN 

A, (C) 

4940 

FQRHF0 



5460 


PUSH 

DE 

5980 

CPL 


4945 


LD 

(HSTTRK),A 

5465 


PUSH 

HL 

5985 

AND 

E 

4950 


PUSH 

AF 

5470 


PUSH 

IY 

5990 

JR 

Z,NONE 

4955 


CALL 

SELTRK 

5475 


LD 

IY,STAT 

5995 ;A - priznak 

rady 

4968 


CALL 

FORHTR 

5480 


CALL 

KEYB 

6000 :D - priznak 

sloupce 0- 

4965 


POP 

AF 

5485 


LD 

HL,(TIHER) 

6005 KEY 



4970 


OR 

A 

5490 


INC 

HL 

6010 

LD 

C,D 

4975 


RET 

Z 

5495 


LD 

(TIHER),HL 

6015 

LD 

H ,0 

4980 


DEC 

A 

5500 


LD 

HL,FDCTIH 

6020 

LD 

L.H 

4985 


JR 

F0RHF8 

5505 


LD 

A,(HL) 

6025 

LD 

B,0 

4998 




5510 


OR 

A 

6038 

LD 

D,L 

4995 

; -for aato vani 

jedne stopy 

5515 


JR 

Z,INTER0 

6035 

LD 

E.8 

5008 

FORHTR 



5520 


DEC 

A 

6048 L00P2 



5005 


XOR 

A 

5525 


LD 

(HL),A 

6045 

RRCA 


5010 

FQRHT1 



5530 


JR 

NZ,INTER0 

6050 

JR 

C,TRANS1 

5015 


LD 

(HEAD), A 

5535 


OUT 

(6) , A 

6855 

ADD 

HL ,DE 

5820 


DI 


5540 

INTER8 



6068 

JR 

L00P2 

5025 


LD 

A, 1 

5545 


POP 

IY 

6065 ;HL=8*RADA 

8*(0-4) 

5838 


LD 

(FDCFRH+2),A 

5550 


POP 

HL 

6870 :SC-SLOUPEC 

(8-7) 

5035 

FQRHT8 



5555 


POP 

DE 

6075 TRANS1 



5048 


LD 

(SECTOR),A 

5560 


POP 

BC 

6880 

ADD 

HL,BC 

5045 


LD 

A,(SEKTRK) 

5565 


POP 

AF 

6085 

CALL 

KCAPS 

5050 


LD 

C, A 

5570 


EI 


6890 

JR 

NZ.NOEXTD 

5055 


CALL 

FDCOC 

5575 


RET 


6095 

CALL 

SYHBOL 

5868 


LD 

A,(HEAD) 

5580 




6100 

JR 

NZ,NOEXTD 



6105 

LD 

DE,120 

6110 

ADD 

HL, DE 

6115 

JR 

NOSYM 

6120 NQEXTD 



6125 

CALL 

KCAPS 

6130 

JR 

NZ,N0CAPS 

6135 

LD 

DE, 40 

6140 

ADD 

HL, DE 

6145 NQCAPS 



6150 

CALL 

SYMBOL 

6155 

JR 

NZ,NOSYM 

6160 

LD 

DE,80 

6165 

ADD 

HL, DE 

6170 NOSYM 



6175 

LD 

DE,TABLE 

6180 

BIT 

1,(IY+0) 

6185 

JR 

Z,TRANS2 

6190 

LD 

DE,TABLE+168 

6195 TRANS2 



6200 

ADD 

HL, DE 

6205 

LD 

A,IHL) 

6210 

JR 

EXIT 

6215 KCAPS 



6220 

LD 

BC,#FEFE 

6225 

IN 

A, (C) 

6230 

BIT 

0, A 

6235 

RET 


6240 SYMBOL 



6245 

LD 

BC,*7FFE ‘ • 

6250 

IN 

A, (C) 

6255 

BIT 

1, A 

6260 

RET 


6265 NONE 



6270 

INC 

D 

6275 

RLC 

B 

6280 

JR 

C.KLOQPl 

6285 :zadna 

klapka 


6290 

XOR 

A 

6295 

BIT 

0, (IY+i) 

6300 

JR 

NZ.EXIT 

6305 

RES 

1,(IY+0) 

6310 EXIT 



6315 

LD 

C,A 

6320 

LD 

B,0 

6325 

RET 

» 

6330 



6335 TABLE 



6340 ;MALA 

PISMENA 

48 BYTE 

6345 

DEFB 

0 

6350 

DEFM 

"aglBp" 

6355 

DEFB 

13,32 

-~6360 

DEFM 

“zsw29ol" 

6365 

DEFB 

8 

6370 

DEFM 

“xde38ike" 

6375 

DEFM 

"cfr47ujn* 

6380 

DEFM 

*vgt56yhb" 

6385 ;VELKA 

PISMENA 48 BYTE 

6390 

DEFB 

0 

6395 

DEFM 

"AQ10P" 

6480 

DEFB 

13,32 

6485 

DEFM 

"ZSN29QL" 

6418 

DEFB 

8 

6415 

DEFM 

“XDE38IKM* 

6428 

DEFM 

"CFR47UJN" 

6425 

DEFM 

“V6T56YHB* 

6438 îSHIFTOVANE ZNAKY 48 BYTE 

6435 

DEFM 

II — I» 

6448 

DEFB 

27 

6445 

DEFM 

II | M 

6450 

DEFB 

"" 1 ,13,32 

- 6455 

DEFM 

"si §);= " 

6460 

DEFM 

"*\ *+." 

6465 

DEFM 


6470 

DEFM 



6625 


DEFB 

"L",0,"X",#E4 

6638 


DEFB 

*F7,"3","8" 

6635 


DEFB 

#E9,"K","H" 

6640 


DEFB 

*E3,"F\#F2 

6645 


DEFB 

"4","7",#£A 

6650 


DEFB 

#F5,#EE,“V* 

6655 


DEFB 

G ,#F4, 5 

6660 


DEFB 

"6",#F9,*H" 

6665 


DEFB 

"B" 

6678 

6675 

CI 

PUSH 

BC 

6680 


PUSH 

DE 

6685 


PUSH 

HL 

6690 


PUSH 

IY 

6695 


LD 

IY.STAT 

6700 

6705 

WAIT2 



6710 


CALL 

INKEY 

6715 


OR 

A 

6728 


JR 

Z ,NAIT2 

6725 

6730 

PRESS 

PUSH 

AF 

6735 

6740 

BEEP 

LD 

C,28 

6745 


LD 

D, 15 

6750 

6755 

6760 

BEEP0 

DI 

LD 

B.D 

6765 

6770 

BEEP1 

EX 

(SP),IY 

6775 


EX 

(SP) , IY 

6780 


EX 

<SP) ,IY 

6785 


EX 

<SP) ,IY 

6790 


DJNZ 

BEEP1 

6795 


LD 

A,C 

6880 


AND 

1 

6805 

6810 

6815 

6820 

6825 


RLCA 

RLCA 

RLCA 

RLCA 

OR 

7 

6830 


QUT 

(tFE) ,A 

6835 


DEC 

C 

6840 


JR 

NZ.BEEP0 

6845 


POP 

AF 

6850 


RES 

5,(IY+0) 

6855 


POP 

IY 

6860 


POP 

HL 

6865 


POP 

DE 

6870 


POP 

BC 

6875 

6S80 

6885 

6890 

6895 

INKEY 

EI 

RET 

PUSH 

IY 

6980 


PUSH 

BC 

6905 


PUSH 

DE 

6918 


PUSH 

HL 

6915 


LD 

IY,STAT 

6928 


BIT 

5,(IY+0) 

6925 


LD 

A,(KS8) 

6938 


JR 

NZ ,FIN 

6935 


XOR 

A 

6940 

6945 

FIN 

POP 

HL 

6950 


POP 

DE 

6955 


POP 

BC 

6960 


POP 

IY 

6965 


RET 


6970 

6975 

:nasieduje 

pracovni oblast 

6980 

6985 

;B IOSu 

ORC 

#F602 

6990 

BEGDAT 

EQU 

a 


6475 

;RIDICI ZNAKY 

48 BYTE 

6488 

DEFB 

0,1,17,"1" 

6485 

DEFB 

"0",16,13.32 

6490 

DEFB 

26,19,23,*2" 

6495 

DEFB 

"9 ,15,12,0 

6588 

DEFB 

24.4,5,"3* 

6585 

DEFB 

"8*,9,11,13 

6510 

DEFB 

3,6,18,*4“ 

6515 

DEFB 

"7",21,18,14 

6520 

DEFB 

22,7,28,"5" 

6525 

DEFB 

"6*,25,8,2 

6530 

;MALA CESTINA 


6535 

DEFB 

0,*C1,*V,"1 

6540 

DEFB 

- J L0‘, *p*, 13,3: 

6545 

DEFB 

#DA,#D3,#C5 

6550 

DEFB 

*2",*9",#CF 

6555 

DEFB 

"l",8,"x",#C 

6560 

DEFB 

#D7,"3*,"8" 

*565 

DEFB 

#C9,"k*, 

6570 

DEFB 

iC3,"f",tD2 

6575 

DEFB 

*4*,"7",#CA 

6580 

DEFB 

#D5,#CE,"v" 

6585 

DEFB 

“g",#D4,"5" 

6590 

DEFB 

6 ,ID9, h 

6595 

DEFB 

"b" 

6600 

;VELKA CESTINA 

6685 

DEFB 

0,#E1, Q , 1 

6610 

DEFB 

"8*,"P",13,3 

6615 

DEFB 

#FA,#F3,#E5 

6620 

DEFB 

"2","9",#EF 


6995 

700e DMAAD DEFS 2 

7305 DIRBUF DEFS SEKSIZ 

7*10 ALL0R DEF3 28 

7015 AtL0F s DEFS 23 

7020 CMK0R DEFS 16 

7025 CHK0F DEFS 16 

7030 DMABUF DEFS SEKSIZ 

7035 STACK DEFS 2 

7040 TIMER DEFW 0 

7345 FDCTIM DEFB 0 

7050 STAT DEFB 0 

7055 KS0 DEFB 0,0,0,0 

7060 KS4 DEFB 0,0,8,B 

7065 KS8 DEFB 0 

7070 KS? DEFB 20 

7075 KSA DEFB 5 

7080 PRETRY DEFS 1 

7085 DMAREG DEFS 1 

7090 

7095 :nasleduje pracovni oblast 
7100 îblokujiciho/deblofcujicibc 
7105 salgaritau pro obsluhu 
7118 jfioppy disku 5 1/4" 

7155 :1S sek/trk, 40tries 
7120 

7125 ;zadana diskova adresa vety 
7130 îSEKDSK - ulozeno na adr. 4 
7135 SEKTRK DEFS 2 ; 

7140 SEKSEC DEFS 1 ; 


SEKSCR DEFS 1 ; 

;diskova adresă fyz. sekt. 

HSTDSK DEFS 1 ; 

HSTTRK DEFS 2 ; 

HSTSEC DEFS 1 ; 

;cisio pozadovaneho Fyz. 

;sektoru 

SEKHST DEFS 1 ; 

;priznak HSTBUF aktivni 
HSTACT DEFS 1 ; 

;pr4znak odlozeneho zapisu 
H5TNRT DEFS 1 ; 

;citac nealokovanych zapisu 
UNACNT DEFS 1 ; 

;diskova adresa dalsi vety 
;v nealokovanee bloku 
UNADSK DEFS 1 ; 

UNATRK DEFS 2 ; 

UNASEC DEFS 1 ; 

;kod chyby 
ERFLA6 DEFS l ; 

ERFLG0 DEFS 1 

jpriznak pozadavku na cteni 
RSFLAG DEFS 1 ; 

ţpriznak cteci operace (=1) 
READOP DEFS 1 ; 

;ty p zapisove operace 
MRTYPE DEFS 1 ; 

jvyrovnavaci paeet 
HSTBUF DEFS HSTSIZ j 

;nasleduje pracovni oblast 
ţobsluhy rădice Floppy 
jdisku typu 18272 


7325 FDCRW 


7330 

DEFB 

FDCFRH-H-1 

7335 

DEFB 

8,0,8,8,0 

7340 

DEFB 

N,E0T,6PL_RN 

7345 

DEFB 

DTL 

7350 

;foreat 


7355 

FDCFRM 


7360 

DEFB 

FDCSC-d-1 

7365 

DEFB 

*4D,1,N,SC 

7370 

DEFB 

6PL_FT,DD 

7375 

;set cylinder 


7388 

FDCSC 


7385 

DEFB 

FDCSIS-5-l 

7398 

DEFB 

iBF, 8,0 

7395 

;sense interrupt status 

7488 

FDCS1S 


7485 

DEFB 

FDCHOH-fi-1 

7410 

DEFB 

*88 

7415 

;hoee 


7420 

FDCHOH 


7425 

DEFB 

FDCSPE-H-1 

7438 

DEFB 

*07,8 

7435 

îspecify - nastaveni 

7440 

;pocatecnich 

paraeetru FDC 

7445 

FDCSPE 


7450 

DEFB 

PCN-fi-I 

7455 

DEFB 

803,SRTHUT 

7460 

DEFB 

HLTND 

7465 

spresent cylinder nueber 

7470 

PCN 


7475 

DEFS 

i 

7488 

saktivni hlava 

7485 

HEAD 


7498 

DEFS 

i 

7495 

jsektor 


7588 

SECTOR 


7585 

DEFS 

i 

7518 

$eisto pro ulozeni vysledku 

7515 

;operace FDC 


7528 

FDCRES 


7525 

DEFS 

7 

7538 



7535 

ENDDAT EQU 

fi 

7548 

DATSIZ EQU 

9-BE6DAT 

7545 



7558 

0R6 

iFCFC 

7555 

DI 


7568 

JP 

INTERT 

7565 

;vstup do systeeu po 

7570 

;zavedeni z pasky 

7575 

0R6 

#FF8B 

7588 

DI 


7585 

LD 

A,*28 

7598 

OUT 

(4) ,A 

7595 

LD 

A,«FB 

7688 

LD 

I, A 

7685 

LD 

HL,INTERT 

7618 

LD 

(*FEFF),HL 

7615 

IM 

2 

7628 

LD 

SP,*FF7F 

7625 

LD 

HL,*FB8B 

7638 

LD 

BC,256 

7635 

LD 

(HL),*FC 

7648 

LD 

DE,#FBB1 

7645 

LDIR 


7658 

LD 

C,CFF 

7655 

CALL 

CONOUT 

7668 

LD 

C,"?" 



7665 

7670 

CALL 

EI 

CONOl'T 

7675 

CALL 

CONIN 

7680 

CALL 

CONIN 

“ v 

7685 

CP 

7690 

JR 

NZ.PRECK0 

7695 

CAL!. 

FORMR 

7700 

7705 

CALL 

PRECH0 

SAVESY 

7710 

LD 

SP,#80 

7715 

JP 

BOOT 


5 *C- 

12 :*************************** 

s i: con : 

25 ; * * 

32 ;♦#*****«#•»•*****#********«** 

35 

42 ;podpdrogram vystupu 
45 ;v racdu 64 znaku na radek 
50 ;KOI-8CS-2 
55 0R3 

62 CONOUT 
65 LI) 

72 JP 

75 ADRCO DEFW 
80 ADDCUR DEFB 
85 BI3P DEFS 
90 TSCRL DEFB 
95 TABCHR E2U 
102 

125 ;tâbuika adres podprograau, 
110 îzpracavavajlcich vystup 
115 ;znaku 
120 

125 TABCON 


130 

DEFW 

CONIC 

00- A e 

135 , 

DEFW 

CONIC 

01-'A 

140 

DEFW 

COHOME 

02- A B 

145 

DEFW 

CONIC 

03- A C 

150 

DEFW 

CONIC 

04- A D 

4 rr, 

i jJ 

DEFW 

CONIC 

05- A E 

160 

DEFW 

CONIC 186 - A F 

165 

DEFW 

COBELL 

07- A G 

170 

DEFW 

COBS 

0S- A H 

175 

DEFW 

COTAB 

09- A I 

180 

DEFW 

COLF 

0A~ A J 

185 

DEFW 

CONIC 

0B- A K 

190 

DEFW 

COFF 

0C- A L 

195 

DEFW 

COCR 

0D- A M 

200 

DEFW 

CONIC 

0E- A N 

205 

DEFW 

CONIC 

0F~ A O 

210 

DEFW 

CONIC 

10- A P 

215 

DEFW 

CDROLL 

n- A g 

220 

DEFW 

COPAGE 

12- A R 

*? n r 
— i. J 

DEFW 

CONIC 

13- A S 

230 

DEFW 

CONIC 

14- A T 

235 

DEFW 

CONIC 

15- A U 

240 

DEFW 

COCLLI 

16- A V 

245 

DEFW 

CONIC 

i 7- A W 

250 

DEFW 

COUP 

18- A X 

255 

DEFW 

CONICI 

19- A Y 

260 

DEFW 

CORIGH 

1A- A Z 

265 

DEFW 

COAT 

1B- A [ 

270 

DEFW 

CONICI 

1C- A 1 

275 

DEFW 

CONICI 

1D- A 1 

280 

DEFW 

COBORD 

1£- AA 

285 

DEFW 

COINVE 

1F- A 

290 TABCS 




295 

DEFB 

32 ; #80 

300 

DEFB 

144 ; a 


305 

DEFB 

32 


310 

DEFB 

145 ;~c 


315 

DEFB 

146 :~d 


320 

DEFB 

148 ;“e 

* 

325 

DEFB 

32 


330 

DEFB 

32 


335 

DEFB 

32 


340 

DEFB 

149 ; ‘i 


345 

DEFB 

156 ţ'u 


350 

DEFB 

32 


355 

DEFB 

32 


360 

DEFB 

32 


365 

DEFB 

150 ;~n 


370 

DEFB 

151 ;‘o 


375 

DEFB 

32 


380 

DEFB 

32 


385 

DEFB 

152 ;~r 


390 

DEFB 

153 ; s 


395 

DEFB 

154 ; 't 


400 

DEFB 

155 ;‘u 


405 

DEFB 

32 


410 

DEFB 

147 ? 'e 


415 

DEFB 

32 


420 

DEFB 

157 ;’k 


425 

DEFB 

158 ;"z 


430 

DEFB 

32 


435 

DEFB 

159 r 


440 

DEFB 

32 


445 

DEFB 

162 ; 


450 

DEFB 

32 


455 

DEFB 

M « N 



460 


DEFB 

128 ; A 

465 


DEFB 

32 

470 


DEFB 

129 ;~C 

475 


DEFB 

130 i“D 

480 


DEFB 

132 ;“E 

485 


DEFB 

32 

490 


DEFB 

32 v 

495 


DEFB 

32 

500 


DEFB 

133 ;'I 

505 


DEFB 

140 ;~U 

510 


DEFB 

32 

515 


DEFB 

32 

520 


DEFB 

32 

525 


DEFB 

134 ;‘N 

530 


DEFB 

135 î'O 

535 


DEFB 

32 

540 


DEFB 

T 

•JJL 

545 


DEFB 

136 ;“R 

550 


DEFB 

137 ;~S 

555 


DEFB 

138 ;'T 

560 


DEFB 

139 ; ’U 

565 


DEFB 

32 

570 


DEFB 

131 ;'E 

575 


DEFB 

32 

580 


DEFB 

141 ;*Y 

585 


DEFB 

142 ;~Z 

590 


DEFB 

32 

595 


DEFB 

32 

600 


DEFB 

32 

605 


DEFB 

32 ; 

610 


DEFB 

32 

615 




620 

COO 



625 


LD 

A,C 

630 


CP 

32 

635 


JR 

C, COCB 

640 


BIT 

7,A 

645 


JR 

Z,COO0 

650 


SUB 

128*64 

655 


RET 

C 

660 


LD 

H,0 

665 


LD 

L, A 

670 


LD 

DE,TABCS 

675 


ADD 

HL.DE 

680 


LD 

A, (HL) 

685 

COO0 



690 


PUSH 

AF 

695 


LD 

A, 1 

700 


LD 

(DISP+3),A 

705 


POP 

AF 

710 


CALL 

CQDPR 

715 


XOR 

A 

720 


LD 

(DISP+3),A 

725 


LD 

HL,(ADDCUR) 

730 


INC 

HL 

735 


LD 

A,64 

740 


CP 

L 

745 


JR 

NZ,C001 

750 


INC 

H 

755 


LD 

L, 0 

760 

COOl 



765 


LD 

A,24 

770 


CP 

H 

775 


CALL 

Z.SCROLL 

780 

C002 



785 


LD 

(ADDCUR),HL 

790 

CQ3CUR 



795 


LD 

A, 143 

800 


CALL 

CQOPR 

805 


RET 


810 




815 

;podprograay, 

zpracovavajici 

820 

;ridici znaky 


825 




830 

COCB 



835 


ADD 

A,A 

840 


LD 

L,A 

845 


LD 

H,0 

850 


LD 

DE,TABCON 

855 


ADD 

HL.DE 

860 


LD 

E, (HL) 

865 


INC 

HL 

870 


LD 

D, (HL) 

875 


EX 

DE.HL 

880 


JP 

(HL) 

885 

CONIC 



890 


LD 

HL,COO 

895 

CONIC0 



900 


LD 

(ADRCO),HL 

905 


RET 


910 

CONICI 



915 


LD 

HL,CONIC 

920 


JR 

CONIC0 

925 

? 



930 

COHQHE 



935 


CALL 

COCCUR 

940 

COHOM0 



945 


LD 

HL,0 

950 


LD 

(ADDCUR),HL 

955 


JR 

COOCUR 

960 

• 



965 

COBELL 



970 


LD 

HL,130 

975 


LD 

DE, 32 


980 


CALL 

949 

985 


RET 


990 

ţ 



995 

COBS 



1000 


CALL 

COOCUR 

1005 


LD 

HL,(ADDCUR) 

1010 


LD 

A, L 

1025 


OR 

H 

1020 


JR 

Z,COOCUR 

1025 


DEC ■ 

HL 

1030 


LD 

A ,#FF 

1035 


CP 

L~ 

1040 


JR 

NZ.C002 

1045 


LD 

L,63 

1050 


JR 

C002 

1055 

; 



1060 

COTAB 



1065 


CALL 

COOCUR 

1070 


LD 

HL,(ADDCUR) 

1075 


LD 

A,L 

1080 


ADD 

A,9 

1085 


AND 

#F8 

1090 


LD 

L,A 

1095 


CP 

64 

1100 


JR 

NZ,CCQ2 

1105 


INC 

H 

1110 


LD 

L,8 

1115 


JR 

C002 

1120 

; 



1125 

COLF 



1130 


CALL 

COOCUR 

1135 


LD 

HL,(ADDCUR) 

1140 


INC 

H 

1145 


JR 

COOl 

1153 

; 



1155 

COFF 



1160 


LD 

HL,*4008 

1165 


LD 

DE,#4001 

1170 


XOR 

A 

1175 


LD 

(HL) ,A 

1180 


LD 

BC,24*32*8-1 

1185 


LDIR 


1190 


JR 

COHOH0 

1195 

7 



1200 

COCR 



1205 


CALL 

COOCUR 

1210 


LD 

HL,(ADDCUR) 

1215 


LD 

L,0 

1220 


JP 

C002 

1225 

J 



1230 

COROLL 



1235 


LD 

A, 1 

1240 

C005 



1245 


LD 

(TSCRL),A 

1250 


RET 


1255 

5 



1260 

COPAGE 



1265 


XOR 

A 

1270 


JR 

CCC5 

1275 

; 



1280 

COCLLI 



1285 


LD 

HL,(ADDCUR) 

1290 


PUSH 

HL 

1295 

C0CLL8 



1300 


INC 

HL 

1305 


LD 

A,64 

1310 


CP 

L 

1315 


JR 

Z,COCLLI 

1320 


LD 

(ADDCUR),HL 

1325 


PUSH 

HL 

1330 


LD 

C, 32 

1335 


CALL 

COQ 

1340 


POP 

HL 

1345 


JR 

CDCLL0 

1350 

COCLLI 



1355 


XOR 

A 

1360 


LD 

(DISP+3),A 

1365 


CALL 

COOCUR 

1370 


POP 

HL 

1375 


LD 

(ADDCUR),HL 

1380 


RET 


1385 

; 



1390 

COUP 



1395 


CALL 

COOCUR 

1400 


LD 

HL,(ADDCUR) 

' 1405 


DEC 

H 

1410 


LD 

A,#FF 

1415 


CP 

H 

1420 


JR 

NZ.C0UP8 

1425 


INC 

H 

1438 

COUP0 



1435 


JP 

C002 

1440 

? 



1445 

CORIGH 



1450 


CALL 

COOCUR 

1455 


LD 

HL,(ADDCUR) 

1460 


INC 

HL 

1465 


LD 

A,64 

1470 


CP 

L 

1475 


JR 

NZ,CQRIG0 

1488 


INC 

H 

1485 


LD 

L,8 

1490 


LD 

A,24 

1495 


CP 

H 


#6802 

HL,(ADRCO) 
(HL) 

CDO 

20,20 

4 

#7000 



1588 


JR 

NZ ,CQRIG0 

1740 

CQOPR 


1980 

INC 

H 

1505 


LD 

L ,63 

1745 

PUSH 

AF 

1985 

INC 

DE 

1510 


DEC 

H 

1758 

CALL 

TRANCG 

1990 

DJNZ 

C00PR1 

1515 

CQR160 



1755 

POP 

AF 

1995 

RET 


1520 


JP 

C002 

1760 

SUB 

32 

2000 



1525 

* 



1765 

LD 

L, A 

2005 

:podprogra» 

prevodu adresy 

1530 

CQAT 



1778 

LD 

H, 8 

2018 

;tisknuteho 

znaku 

1535 


CALL 

COOCUR 

1775 

ADD 

HL, HL 

2815 



1548 


LD 

HL.CQATl 

1780 

ADD 

HL, HL 

2820 

TRANCO 


1545 

C0AT8 



1785 

ADD 

HL,HL 

2825 

LD 

HL,(ADDCUR) 

1550 


JP 

CONIC0 

1790 

EX 

DE, HL 

2838 

LD 

A,H 

1555 

C0AT1 



1795 

LD 

HL.TABCHR 

2035 

AND 

#07 

1568 


LD 

HL,(ADDCUR) 

1808 

ADD 

HL, DE 

2048 

RRCA 


1565 


CP 

24 

1885 

EX 

DE,HL 

2845 

RRCA 


1570 


JR 

C,COAT10 

1810 

LD 

HL, (DISP) 

2858 

RRCA 


1575 


LD 

A,23 

1815 

LD 

A,(DISP+2) 

2055 

SRA 

L 

1530 

C0AT18 



1820 

LD 

C, A 

2060 

PUSH 

AF 

1535 


LD 

H,A 

1825 

LD 

8,8 

2065 

ADD 

A,L 

1590 


LD 

(ADDCUR),HL 

133e 

C00PR1 


2070 

LD 

L,A 

1595 


LD 

HL,C0AT2 

1335 

LD 

A,(DE) 

2075 

LD 

A,H 

1680 


JR 

COAT0 

1840 

PUSH 

ĂF 

2080 

AND 

#F8 

1605 

CQAT2 



1845 

BIT 

0,C 

2085 

OR 

«40 

1610 


LD 

HL,(ADDCUR) 

1850 

JR 

NZ.CQ0PR2 

2890 

LD 

H, A 

1615 


CP 

64 

1855 

LD 

A, (DISP+3) 

2895 

LD 

(DISP),HL 

1620 


JR 

C.C0AT28 

1860 

AND 

A 

2100 

POP 

AF 

1625 


LD 

A,63 

1865 

JR 

Z,CQQPR3 

2105 

LD 

A,0 

1630 

CQAT20 



1878 

LD 

A,#8F 

2110 

RLA 


1635 


LD 

L,A 

IS75 

AND 

(HL) 

2115 

LD 

(DISP+2),A 

1640 


LD 

(ADDCUR),HL 

1888 

LD 

(HL) ,A 

2120 

RET 


1645 


CALL 

COOCUR 

1885 

C00PR3 


2125 



1658 


LD 

HL.COO 

1890 

POP 

AF 

2130 

;podprograa 

scrollovani pri 

1655 


JR 

C0AT8 

1895 

JR 

C00PR5 

2135 

;rezi«u scroll, pri reziau 

1660 




1908 

C00PR2 


2140 

ţpage pouze 

provede presun 

1665 

CQBORD 



1905 

LD 

A,(DISP+3) 

2145 

îkurzoru, v 

HL vraci novou 

1670 


LD 

HL,COBOR0 

1910 

AND 

A 

2150 

;pozici kurzoru 

1675 


JP 

CONIC0 

1915 

JR 

Z ,CQ0PR4 

2155 



1630 

CQB0R8 



1920 

LD 

A, #F0 

2160 

SCROLL 


1685 


LD 

C,A 

1925 

AND 

(HL) 

2165 

LD 

A,(TSCRL) 

1690 


AND 

#07 

1930 

LD 

(HL) ,A 

2170 

OR 

A 

1695 


OUI 

(#PE) ,A 

1935 

C00PR4 


2175 

JR 

Z,SCRPAG 

1700 


JP 

CONIC 

1940 

POP 

AF 

2188 

PUSH 

HL 

1705 

> 



1945 

RRCA 


2185 

CALL 

#8DFE 

1718 

COINVE 



1950 

RRCA 


2190 

POP 

HL 

1715 


RET 


1955 

RRCA 


2195 

LD 

H,23 

1720 




1960 

RRCA 


2208 

RET 


1725 

:podprogram 

tisku znaku z r 

1965 

C00PR5 


2285 

SCRPAG 


1730 

; A na 

pozici 

(ADDCUR) 

1970 

XOR 

(HL) 

2210 

LD 

H,0 

1735 




1975 

LD 

(HL) ,A 

2215 

RET 




RNDr. Stanislav Uli£iansky, Komenskăho si, owoi Ko&ce 


Alfanumericky alebo graficky displej je jednou z najd£leiitejăich £asti mikropo£ita£a. V sudasnosti su na displej 
osobnych mikropo£ita£ov kladenâ ui pomerne vysokâ nâroky. Na ich konâtrukciu sa v modernych 
mikropo£tta£och pouiivaju takmer vyludne Specializovanâ VLSI kontrolery, ktorâ znafcne zjednoduSujd realizâciu 
tychto obvodov. V naăîch podmienkach nemâ konStruktâr mikropo£ita£a k dispozicii v su£asnosti iiaden typ 
takâhoto video kontroiera, preto mu ostâva jedinâ moinosf — zostavif prisluânâ obvody z dostupnych 10 niiSej 
integrâcie, hoci na to spotrebuje takmer 10x viac obvodov. 

Na strânkach AR ui bolo publikovanych niekoTko zapojenf TV displejov rftznej zloiitosti (AND-1, AND-IZ, 8080 
MC-Dt). Preto som pOvodne nemal zâmer publikovaf cfalii a pomerne zloiity typ zapojenia, ktorâ je na homej 
hranici amatârskych moinostf. Opakovanie tematickej ulohy MIKROKONKURZU AR’87 na konătrukciu 
inteligentnâho TV displeja ma vSak podnietilo k tomu, aby som predsa len spracoval popis displeja, ktory som 
postavil k svojmu amat&rskemu osobnâmu mikropo£îta£u. 


Zâkladnâ technickâ udaje: 

Formât zobrazenia textu: 32/64 znakov 
x 15 (16) riadkov. 

Formât zobrazenia semigrafickych zna¬ 
kov: 

32/64 znakov x 30(32) riadkov. 

Raster znaku: 8x8 boddv. 

Repertoâr znakov: 128 Standardnych 
znakov podra normy ASCI + 128 
znakov, ktorâ si mdze zvolif uiivater. 
Generâtor znakov je fixny v EPROM 
typu 2716. Pri pouziti EPROM typu 
2732 sa rozâiri repertoâr znakov ai na 
512. 


Mddy zobrazenia znakov: 

— normâlny znak, 

— inverzn^ znak, 

— blikajuci znak, 

— znak s dvojitou Sirkou, 

— zatemneny znak, 

— moino nastavif 8 urovnî jasu pre 
kaidy znak. 

Pre kaidy znak je moinâ navolif 
rubovornu kombinâciu uvedenych 
mddov zobrazenia. 

Typ displeja: Displej s vlastnou obrazo- 
vou pamăfou 2x 2kB, ktorâ je su- 
Castou adresovâho priestoru mikro- 
procesora s prioritou pristupu proceso- 
ra do tejto pamâte. 


Rolovanie obrazu: Je zabezpedenâ 
obvodmi TV displeja s moinosf ou 
jemnâho rolovania po jednotlivych TV 
linkâch nahor alebo nadol. 

Stredovanie obrazu: Pozlciu obrazu na 
obrazovke TV prijimada je moino na- 
stavovaf v horizontâlnom aj vertikâl- 
nom smere. 
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Popis zapojenia 

Pre pochopenie dinnosti tohoto dis- 
pleja ui nevystadime len so samotnou 
schemou zapojenia, ako napriklad 
v pripade pomeme jednoduchâho dis- 
pleja 8080 MC-Di [5], ale je potrebnâ 
popisaf aspofi najddleiitejăie prvky 
a funkciu pouiitâho rieăenia. Aby tento 
popis nezabral priliă vefa miesta, snazii 
som sa ho urobif do najstrudnejăim, no 
pritom dostatodne presnym a vy- 
stiinym. Presveddil som sa văak, ie 
urobit takyto popis pre zapojenie pozo- 
stâvajuce z 54 IO ui nie je len diste 
technickou zâleiitosfou, ale na svoje si 
pride aj literârne a vytvarne umenie. 
Citaterom, ktorî nie su oboznâmeni 
s principmi dinnosti TV displejov, od- 
porudam sa vopred oboznâmif aspoft 
s dlânkami z predchâdzajucich 
rodnfkov AR [1—5]. 

Kvdli strudnosti tu neuvâdzam obvyk- 
lu blokovu schâmu zapojenia, ale cely 
popis sa bude viazat na tiplnu schâmu 
zapojenia, ktorâ je uvedenâ na obr. 1 
na str. 40, 41, a na ostatnâ doplftujuce 
taburky a obrâzky. 

Popisovany displej vytvâra na obra- 
zovke raster 512 x 256 bodov. Pretoze 
jeden znak je zobrazovany v rastri 
8x8 bodov, znamenâ to, ie mdieme 
zobrazit 64 znakov v 32 riadkoch. To 
odpovedâ prâve rozsahu 2048 znakov 
na celu obrazovku., Pretoze nie su 
obvodmi displeja generovanâ trvale 
zatemnenâ riadky ako napr. v displeji 
AND-1, pri zâpise textu musime znaky 
zapisovat len do kaidâho druhâho 
riadku, do nâm dâva celkove 16 zobra- 
zitefnych alfanumerickych riadkov. Je 
to slce podstatne menej riadkov ako 24 
viditernych riadkov v AND-1, avăak 
^vcfaka vădăej medzere je text na tomto 
'displeji ovefa prehfadnejăi. Hlavnym 
udelom tohoto rieăenia je văak to, aby 
bolo moinâ v semigrafickom rezime 
pokryt znakmi celâ plochu obrazovky. 
V aifanumerickom rezime nâm văak 
toto rieăenie umoirtuje umiestnif do 
oddefovacich prâzdnych riadkov zob- 
razenie diakritickych znamienok nad 
verkâ aj malâ pismenâ, vcfaka domu tu 
mâme moinosf „naudif tento displej 
slovendinu alebo deătinu, to je pri rastri 
znaku 8x8 bodov obtiaine realizova- 
tefnâ. 

Vyăăie uvedeny raster zobrazenia je 
urdeny zapojenim obvodov primârnej 
dasovej zâkladne, ktorâ pozostâva 
z obvodov E3, D3, D4, E4, D5, E7, E8. 
Prvym stupfiom tejto dasovej zâkladne 
je oscilâtor, vytvoreny z invertorov E3, 
ktory pracuje na frekvencii 12 MHz. 

Pretoze tâto frekvencia je ui pomer- 
ne vysokâ pre beinâ obvody TTL, je 
vhodnâ v tomto stupni pouzit obvod 
typu 74S04 resp. 74LS04. Za oscilâto- 
rom nasleduje kaskâda delidov 1:16, 
1:16 a 1:3, ktorymi je vytvoren^ celkovy 
deliaci pomer 1:768. Prvâ dva stupne 
tejto delidky je potrebnâ osadit syn- 
chrânnymi ditadmi typu 74193. Vysled- 
ny produkt z tejto kaskâdy — signâl 
AP9 s frekvenciou 15 625 kHz — siuii 
ako signâl, z ktorâho sa odvodzuje 
horizontâlny zatemfiovaci a synchroni- 
zadny impuiz. Druhy stupeft primârnej 
dasovej zâkladne je tvoreny obvodmi 
1/2 D5, E7, E8 — vytvâraju delidku 
1:320, ktorâ zabezpeduje tvorbu 320 TV 
riadkov a signâlu o frekvencii 48,8 Hz 
pre obvody vertikâlneho zatemrtovania 
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a synchronizâcie. Z celkovâho rastru 
768 bodov x 320 riadkov spadâ do 
viditernej zâny 512 bodov x 256 riad¬ 
kov. To odpovedâ pomerne vefkâmu 
pokrytiu plochy obrazovky TV prijima- 
6a, vcfaka 6omu sa objavuju problâmy 
s ostrostou kresby v rohoch obrazovky 
a je nevyhnutnâ zabezpeâif moănosf 
presnâho nastavenia pozicie obrazu na 
Qbrazovke. Tuto ulohu plnia obvody 
tvorby zatemftovacfch a synchroni- 
zaănych impulzov. 

Horizontâlne zatemnenie a synchro- 
nizâcia su odvodenâ z vystupu AP9 
prveho stupha primârnej ăasovej zâ¬ 
kladne (AP9 = HZATZ). Invertovany 
signâl HZATZ je priveden^ na vstup 
posuvnâho registra E9 (74164), ktory je 
ovlâdanjy hodinovym signâlom AQ0 
resp. \Q0. Casovâ posunutie, ktorâ je 
vytvâranâ v tomto obvode, je potrebnâ 
na zabezpeâenie sprâvneho zobrazenia 
v suvislosti s pouiitlm vyrovnâvacîch 
registrov CI, C3. Z vhodnâho vystupu 
tohoto obvodu sa odoberâ signâl 
HZATP, ktor y sa vyuii'va na vytvorenie 
signâlu ZAT v obvode E6/6. Je taktiei 
privedeny na vstup cfalăieho posuv¬ 
nâho registra D9, ktory zaisfuje 
moinosf nastavenia obrazu v horizon- 
tâlnom smere. Toto nastavovanie sa 
realizuje vofbou vhodnâho vystupu na 
D9, z ktorâho sa odoberâ spuăfaci 
impuiz pre MK0 C9 (1/2 74123), ktory 
generuje horizontâlny synchronizaâny 
impuiz o dfeke 4,5 az 4,9 ns. Jemnâ 
nastavenie pozicie obrazu v horizontâl- 
nom smere je tiel mo|nâ urobif vofbou 
signâlu AP3 alebo ÂP3 ako hodinovâho 
signâlu pre posuvny register D9. Ob- 
dobnym spdsobom ako pre horizontâl¬ 
ny rozklad sa zo signâl u BP 8 = VZATZ 
vytvâra v E6/6 signâl ZAT a po voli- 
tefnom spozdeni obvodom D8 sa v C9 
(druhâ polovica obvodu) vytvâra verti- 
kâlny synchronizaâny impuiz o dfike 
160 )is. Horizontâlny a vertikâlny syn- 
chronizaâny signâl sa pomocou hradla 
EX-OR B9/3 sâitavaju do uplnej syn- 
chronizaânej zmesi SYNC, ktorâ je 
vyvedenâ naăpiâku 6.15 konektora K4. 

Primârna 6asovâ zâkladâa sa vyuăiva 
len na vytvâranie zatemftovacich 
a synchronizaânych signâlov, iba sig- 
nâly AP0 ai AP3 sa zudastfiuju na 
tvorbe zobrazenia znaku ako adresa 
bodu znaku na TV riadku, AP0 -h AP2 
pri zobrazeni normâlneho znaku a 
AP1^-AP3 gri zobrazeni znaku s dvoji- 
tou ăirkou. Văetky ostatnâ adresovacie 
signâly, ktorâ urduju adresu TV riadku 
v znaku, adresu znaku v riadku a stfpci 
su generovanâ sekundârnou Casovou 
zâkladhou. Prvy stupeh tejto sekundâr- 
nej dasovej zâkladne, pozostavajuci 
z obvodov C5, D5 1/2, F5 1/2, generuje 
6bitovu adresu znaku na riadku urdenti 
signâlmi AS0 ai AS5. Tento 6ita6 je in- 
krementovany signâlom AQ2 = AP2 pre 
normâlny znak a signâlom o polovidnej 
frekvencii AQ2 = AP3 pre znak s dvoji- 
tou ăirkou. Toto rieăenie umoăfiuje dy- 
namicky kombinovaf na jednom riadku 
normâlne a ăirokâ znaky bez nutnosti 
zdvojovaf zâpis znaku pre ăiroky znak. 
Ak su văetky znaky na riadku s dvoj- 
nâsobnou ăirkou, potom podas trvania 
aktivnej 6asti riadku sa staâi naadreso- 
vaf len prvych 32 znakov, ostatnâ zna¬ 
ky, hoci su zapisanâ v obrazovej pa- 
măti, nebudu zobrazenâ. Poâas zatem- 
nenej 6asti riadku je in kremen tâcia 
6ita6a blokovanâ signâlom HZATZ pro- 
strednictvom hradla E6/3. Horizontâlny 
synchronizaâny impuiz vynuluje tento 
6ita5 a pre kazd^ TV riadok sa zaâina 
poăitaf odznova. 


Druhy ătupeh sekundârnej dasovej 
zâkladne je tvoreny obvodmi D6 a D7. 
Vystupnâ signâly BS0 — BS2 urduju 
adresu TV riadku v znaku a dalăie 
signâly BS3 — BS7 urduju 5 bitovu 
adresu znakovâho riadku (32 moinych 
-znakovych riadkov). Tento ditad je 
inkrementovany horizontâlnym syn- 
chronizadnym impuizom HSYNC v da- 
se, kecf nie je akt ivnv ve rtikâlny za- 
temhovaci impuiz (VZATZ = H) a je 
nulovany vertikâlnym synchronizadnym 
impuizom. 

Sirokâ paleta zobrazovacich moi- 
nosti, ktorâ poskytuje tento displej, je 
zabezpedenâ pouzit^m spdsobom or- 
ganizâcie obrazovej pamăte. Tâto pa- 
măf pozostâva z dvoch uplne samo- 
statnych 2 kB blokov pamăte RAM, 
ktorâ su zostavenâ z 8 ks IO 2114. Tieto 
bloky su z pohfadu mikroprocesora 
organizovanâ ako sudasf jeho ope- 
radnej pamăte. Poufitâ adresovacie 
obvody umoăftuju takmer rubovofne 
rozmiestnif tieto bloky v celom priesto- 
re 64 kB. Akonâhle procesor adresuje 
obrazovu pamăf, pripâjaju sa adresovâ 
vodide pamăti na adresovu zbernicu 
procesora prostrednictvom prepinadov 
adresovej zbernice, zostavenych 
z obvodov typu 74157 (IO 05, B5, B6, 
B7). Pripojenie pamăti na datovu zber¬ 
nicu procesora sa realizuje pomocou 
odderovadov typu MH3216, pridom 
zâkladnou zvlâătnosfou je tu to, ie pre 
kazdy pamăfovy blok mâme samostat- 
ny odderovad datovej zbernice. Vcfaka 
tomuto rieăeniu nie su datovâ vodide 
tychto pamăfovych blokov navzâjom 
pospâjanâ a preto sa z hfadiska vnutor- 
nych obvodov TV displeja javi obrazovâ 
pamăf ako jediny blok 2k, ale so 16 
bitovou datovou zbernicou. Tâto orga- 
nizâcia obrazovej pamăte sa potom 
vyuiiva tak, ie 8 bitov reprezentuje 
znakovy bajt a druhych 8 bitov zas 
priznakovy bajt. Preto potom nazyvame 
pamătovy blok realizovany obvodmi 
B1L, B1H, B2L, B2H ako obrazovu 
pamăf pre priznaky a pamâfovy blok 
s obvodmi B3L, B3H, B4L, B4H ako 
obrazovu pamăf pre znaky. Kaidâmu 
bajtu v pamăti znakov odpovedâ pri¬ 
znakovy bajt v pamăti priznakov 
s adresou vyăăou o 2k v râmei adreso- 
vâho priestoru procesora a s rovnakou 
adresou v râmei obvodov displeja. 
Pokiar sa maju zobrazovaf znaky 
v rovnakom mâde zobrazenia, potom 
na zâpis znaku stadi jeden bajt, pridom 
predpokladâme, ie pamăf priznakov je 
naplnenâ poiadovanym obsahom. Po¬ 
kiar je potrebnâ zapisovaf znaky 
s rdznym mâdom zobrazenia, potom sa 
musia do obrazovej pamăti zapisovaf 
2 bajty — znakovy aj priznakov^. 

Datovâ zbemica pamăti znakov DZX 
sa obvyklym spdsobom pripâja na 
adresovâ vodide A3 ai A10 generâtora 
znakov, ktory' je v pamăti EPROM typu 
2716. Najniiăie tri adresovâ vodide 
EPROM su napojenâ na signâly BQ0, 
BQ1, BQ2, ktorâ reprezentujti adresu TV 
riadku v znaku. Na vystupoch obvodu C4 
mâme v paralelnej podobe pritomnu 
osmicu bitov, ktorâ odpovedaju poia- 
dovanâmu zobrazeniu svetlych a tma- 
vych bodov v znaku. Tâto paralelnâ 
informâcia sa neprevâdza okamiite na 
sâriovy tvar, ale prechodne sa ucho- 
vâva vo vyrovnâvacom registri C3 
(MH3212). Vystupy z obrazovej pamăte 
pre priznaky DPX sa pripâjaju na druhy 
vyrovnâvaci register CI, opăf s IO 
MH3212. Tieto dva vyrovnâvâcie regis¬ 
tre CI, C3 su riadenâ signâlom STBV 
tak, aby sme na ich vystupoch mali 



vidy platnu informâciu pre zobrazova- 
ny znak — vlastnu znakovu Cast* aj 
priznakovu Cast*. Pomocou tychto vy- 
rovnâvacich registrov sa odstraftuje 
spozdenie, ktorâ by inak bolo spdsobe- 
nâ prechodom informâcie o zobrazova- 
nom znaku cez generâtor znakov 
v pamâti EPROM. Pretoie pre normâl- 
ny znak a znak s dvojnâsobnou ăirkou 
je potrebnâ menit obsah vyrovnâvacich 
registrov v odliănych okamiikoch, sig- 
nâl STVB je vytvârany prepinaCom D2 
(74157), priCom pre normâlny znak je 
STVB = APO. AP1. AP2 (vystup F3/6) 
a pre ăiroky znak je STBV = CAD3 (vy¬ 
stup D3/12). 

Vystupy z vyrovnâvacieho registra C3 
su pripojenâ na vstupy multiplexera C2 
(74151), na ktoreho adresovâ vstupy A, 
B, C su pripojenâ signâly AQO ai AQ2. 
Tieto signâly su, ako ui bolo spomina- 
nâ, vytvâranâ zo signâlov ASO al AS3 
pomocou prepinaCa D2 (74157). T^m je 
zabezpeCenâ sprâvne vytvâranie zo- 
brazenia bodu v znaku v zâvislosti na 


Dalăi signâl CI/IO = D3 v stave D3 
= H = log 1 spâsobuje, ie sa prostred- 
nlctvom riadiaceho vstupu El zabloku- 
je dekodâr El, vcTaka Comu sa zatem- 
Cuje zobrazenie rovn ako ako sa za- 
temftuje poCas signâiu ZAT = H = log 0, 
ktory je privedeny na povorovacf vstup 
E2 obvodu El. K zatemneniu zobraze- 
nia dochâdza văak taktiei poCas doby, 
kedy je obrazovâ pamâf pripojenâ na 
zbernicu procesora a signâl SEL (pripo- 
jeny na vstup hradla A5/08) je v aktfv- 
nom stave L. Vcfaka tomu sa ruăenie 
zobrazenia na obrazovke poCas zâpisu 
dât do obrazovej pamăte realizuje ako 
Cierne Ciarky vytrhâvanâ z bieleho 
obrazu. Ako je znâme, toto ruăenie sa 
nedâ jednoduchym spâsobom od- 
strânit. V tejto podobe văak pri bielom 
pisme na Ciernom pozadi bude minima- 
lizovanâ. 

Adresovâ vstupy dekodâra El su 
pripojenâ na cfalăie 3 bity (D4, D5, D6) 
vyrovnâvacieho registra pre priznaky 
(obvod CI). V zâvislosti na stave tychto 


nou modulâciou v tranzistorovom stup- 
ni nedâvala rozumnu moinosf nastavo- 
vania jednotlivych urovni jasu, ukâzalo 
sa ako jedinâ vhodnâ, aj ked* trochu 
nâkladnâ, rieăenie s tranzistormi 
p-n-p spinajucimi v âktivnom stave 
rezistory Rxa (X=1 ai 9) na napătie +5 V. 
V suCtovom bode x potom ztskame po- 
trebnâ napătie s odstupftovanymi am- 
piitudami, ako je to schâmaticky 
znâzornenâ na obr. 3. Odstuphovanie 
amplitud sa dâ nastavovaf zmenou re- 
zistorov Rx 3 . 

Na zâver popisu zapojenia uvaazam 
eăte struânâ udaje o ostatnych obvo- 
doch displeja. Obvody 05, B5, B6, B7 
(4x 74157) tvoria prepinaC adresovej 
zbernice pre pamăf. Tento prepfnaâ 
pripâja pamăte na adresovu zbernicu 
procesora kecf je signâl SEL = H, tj. 
kecf chce procesor Citat* alebo zapiso- 
vat* dâta do obrazovej pamăte. Sufias- 
ne tento signâl prostrednictvom inver- 
tora A6/12 a hradla A5/8 zatemfiuje 
obrazovku poCas pristupu procesora 


zvoienom type znaku (normâlny resp. 
Siroky). Multiplexer C2 je naviac pro¬ 
strednictvom vstupu S hradlovany sig- 
nâlom z F3/8, 5o je signâl s periâdou 
okolo 1 s vytvârany multivibrâtorom E2. 
Samotny signâl z multivibrâtora je 
văak eăte hradlovany signâlom z vystu- 
pu C1/04 prostrednictvom hradla 
F3/12. Tento obvod zabezpeâuje funk- 
ciu blikania obrazu, ktore je povol*ova- 
nâ nastavenim bitu DO = H = 
log 1 v priznak ovom b aite. Vystupnâ 
signâly VIDEO a VIDEO z multiplexera 
C2 su cez sustavu z hradiel Dl privede- 
nâ na vstup E3 dekodâra El, realizova- 
nâho pomocou obvodu typu MH 3205. 
V zâvislosti na stave vystupu C1/06 sa 
preto potom realizuje normâlne alebo 
inverznâ zobrazenie znaku. Vystupny 
signâl C1/08, odpovedajuci bitu D2 
v priznakovom bajte, je oznaâeny ako 
DBL a zabezpeâuje prepinanie obvodu 
D2, teda obvodu prepinania zobrazenia 
normâlneho znaku a ăirokâho znaku. 

9x TR23 (KSY82) 


bitov sa potom pri aktivâcii dekodâra 
prostrednictvom povorovacich vstupov 
El, E2, E3 aktivuje do stavu L jeden 
z vystupov 0 ai 7. Na tieto vystupy je 
potom pripojeny obvod prevodnika TV 
urovni, ktory je realizovany tak, ie 
kaidâmu z vystupov 0 ai 7 dekodâra 
El priracfuje inu uroveft jasu. Schâma 
tohoto prevodnika je uvedenâ na 
obr. 2. Realizovany je na malej samo- 
statnej doske ploănâho spoja, ktorâ je 
spojenâ s doskou displeja kâblom pro¬ 
strednictvom konektora K4. 

Je to vlastne veTmi jednoduchy 
prevodnik D/A rozliăujuci 8 analogo- 
vych urovni. Prvâ verzia tohoto prevod¬ 
nika boia spojenâ s vf TV modulâto- 
rom. V tomto pripade sa vyiadovala 
negativna modulâcia a preto bolo 
vhodnâ, ie dekodâr El mâ vystupy 
aktivne v stave L. Celâ zapojenie preto 
obsahovalo len 3 tranzistory, niekorko 
diod a pasivne prvky. Ked* som văak 
realizoval verziu displeja so 64 znakmi 


do pamăte. Na vstupy XI tychto pre- 
pinaâov su pripojenâ adresovâ vodiCe 
BAO ai BA9 adresovej zbernice proce¬ 
sora. Na druhu sadu vstupov X0 su 
pripojenâ priamo vodiCe ASX prvâho 
stuprta sekundârnej Casovej zâkladne, 
zatiar Co vystupy BSX druhâho stupfta 
Casovej zâkladne idu najprv do su- 
mâtora, realizovanâho obvodmi C6, C7, 
a ai odtiar ako signâly BQX idu na 
vstupy prepinaCa adries. V sumâtore sa 
realizuje suCet dvoch 8 bitovych hodndt 
MODULO 256, kde druhou vstupnou 
veliCinou je obsah registra C8. Pokiar je 
v registri C8 zapisanâ hodnota 00H, 
potom sa niC nedeje. KecT văak do neho 
zapiăeme hodnotu napriklad OFH, po¬ 
tom v okamiiku, kecf sa na obrazovke 
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Obr. 3. Schema- 
tickâ znâzornenie 
vzfahov medzi 
amplitudami vy- 
stupnâho signâiu 
z prevodnika TV 
urovne pre jednot- 
livâ signâly VIDEO 
X a SYNC 


Obr. 2. Prevodnik signâlov video a sync 
na upInY videosignâl s rozliăenim os- 
mich urovni jasu 

na riadok, kvalita obrazu cez modulâtor 
ui prestala vyhovovaf. Preto som reali¬ 
zoval priamy vstup video signâiu do 
televizora obdobnym spâsobom ako 
v [6]. V tomto pripade văak potrebuje- 
me pozitivnu modulâciu (najvăCăia am- 
plituda odpovedâ urovni bielej). Pre- 
toie priama inverzia signâiu s negativ- 


vioeo 8 (Cierna) 


zaCina pisat prvy aktivny televizny 
riadok, obrazovâ pamăt* a generâtor 
znakov je adresovany tak, ie sa z nich 
vyberaju udaje, ktorâ odpovedaju ăe- 
stnâstemu TV riadku. Inkrementâciou 
registra C8 o +1 sa posuva obraz 
o 1 TV riadok nahor, dekrementâciou 
sa posuva o 1 TV riadok nadol. Cyklic- 
kym opakovanim tejto inkrementâcie 
alebo dekrementâcie sa realizuje tak- 
mer spojitâ posuvanie obrazu smerom 
nahor alebo nadol, ktorâ je vetmi 
prijemnâ na oCi a zniiuje zrakovu 
unavu pri dlhăietrvajucej prâci s po- 
CitaCom. Obvyklâ rolovanie obrazu 
o jeden znakovy riadok pri prichode 
znakov CR LF sa potom realizuje ako 
cyklus 16 inkrementâcii v smyCke 
s Casovym spozdenim, ktorâho zmenou 
sa nastavuje poiadovanâ rychlost* rolo- 
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vania. Pracujem s profesionâlnym po- 
ditaCom s displejom typu VT 100, ktory 
mâ realizovanâ toto spojitâ rolovanie 
a preto viem ocenif jeho vyhody. 

Vystupny signâl BQ7 zo sumâtora nie 
je vyuzfvany ako adresovy vodiâ, ale 
zabezpeâuje preplnanie hornâho a doi* 
nâho bloku obrazovej pamăte znakov 
a prîznakov. K tomuto preplnaniu must 
dochâdzaf v okamiiku, kecf sa ukonâl 
kreslenie 127 riadku a mâ sa zaăaf 
kreslif 128 TV riadok. K zmene hodnoty 
BS7 = BQ7 z L na H dochâdza pri 
nâbeznej hrane signâlu HSYNC, ktory 
inkrementuje 61 'tade D 6 , D7. Aby nedo- 
châdzalo ku koltzii medzi dolnou 
a hornou iasfou obrazovej pamăte pri 
preplnani, je potrebnâ zaistif, aby na 
urăitu dobu a vo vhodnom okamziku 
boli obidve pamăte odpojenâ. Dosah u- 
je sa to tym, ie signâly BQ7 a BQ7 su 
poâas doby horizontâlneho synchroni- 
zaânâho impulzu (4,5 ţis) zahradlovanâ 
v obvo doch F7/6, F7/11 signâlom 
HSYNC. 


Zapojenie obvodov dekodâra adries 
je v podstate ătandardnâ. Je zabezpe- 
âenâ uplnâ dekâdovanie adries, pri- 
âom je moinâ zvolif ulozenie bloku 
4 kB obrazovej pamăte fubovofnâ 
v râmei kaidâho z âsmich blokov 8 kB. 
Jedinou zvlâStnosfou dekodâra adries 
je to, ie vcfaka pouzitiu samostatnych 
odderovaăov adresovej zbernice pre 
pamăf znakov a pamăf prîznakov bolo 
nevyhnutnâ z dvoji f obvody generâcie 
signâlov CS a DCE pre oddefova&e s IO 
typu 3216. V zapojenl, ktorâ je uvedenâ 
na obr. 1 , je obrazovâ pamăf pre znaky 
uloienâ na adresâch E000H ai E7FFH 
a pamăf pre prlznaky na adresâch 
„E800H a i EFFFH. Nakorko je pouiitâ 
rozdelenie obrazu na riadky a stfpce 
v mocninâch âlsla 2 (64 x 32), je 
zostavenie taburky adries pre jednotli- 
vâ pozlcie na obrazovke jednoduchâ 
a nie je potrebnâ ho zvlâăf uvâdzaf. 

Pri zobrazovanl 256 TV riadkov 
z celkovâho po£tu 320 je pokrytâ 
takmer celâ plocha obrazovky, prifiom 
v rohoch obrazovky sa stâvaju plsmenâ 
vcfaka astigmatizmu neCitatefnâ. Tento 
problâm je zvlâăf citerny, ketf chceme 
pouzif zobrazenie so 64 znakmi na 
riadok. Preto som realizoval doplhujuci 
obvod, ktory predlăuje vertikâlny za- 
temhovacl impulz tak, ie su zatemnenâ 
tieă poslednâ dva (30. a 31.) riadky. Po 
odpovedajucej zmene polohy vertikâl- 
neho synchronizafinâho impulzu — vy- 
stredenl obrazu — je ui ăitateFnosf 
lepăia. Zapojenie tohoto obvodu je 
uvedenâ na obr. 4. Pokiar nepouilvame 
TV prijlmaâ aj na beinâ uăely, je moinâ 
tento problâm vyrieăif jednoducho 
zmenăenlm vertikâlneho rozmeru obra¬ 
zu prestavenlm prlstuănâho ovlâdacie- 
ho prvku na TV prijlmaâi. Vytvorenlm 
iatemnenej 6 asti aktlvnej zâny obrazu 
văak je mOznâ docielif niektorâ zvlâăt- 
ne efekty. V tejto zatemnenej zâne sa 
mâie realizovaf nulovanie riadku alebo 
zâpis novâho obsahu riadku, vcfaka 
ăomu sa horizontâlna zmena obsahu 
riadku stane neviditernâ a pri spojitom 
rolovanl textu sa na dolnej hrane 
obrazu bude vynâraf uz hotovy zaplsa- 
ny riadok. Taktiei je moinâ realizovaf 
rolovanie obrazu o jeden riadok (jeden 
dvojriadok) spăf s minimâlnou progra- 
movou podporou. 


Konătrukcia displeja 
a prevodnîka TV urovnî 

Displej bol realizovany ako suâasf 
amatârskeho poâltaăa TOM 84 na uni- 
verzâlnej doske ploănâho spoja 
vefkâho eurâpskeho formâtu o rozme- 
roch 235 x 180 mm. Spojovy obrazec 
tejto dosky bol uverejneny v roâenke 
AR’87 — MIKROELEKTRONIKA (typ 
V 215 ME). Osadenie tejto dosky inte- 
grovanymi obvodmi a cfaiălmi suâiast- 



ZAT 30 .... zobraiuje sa 30 riadkov 
ZAT3i .... zobrazuje sa 32 riadkov 


Obr. 4. Doplnkovy obvod, ktory zabez- 
peduje predlzenie zatemnenia tak, ie je 
zatemneny aj 30. a 31. riadok 


kami je uvedenâ na obr. 5. Su pouiitâ 
konektory typu 6AF89654 (31 kollkovâ, 
pozlâtenâ), priăom konektory K1 a K2 
su pre systâmovu zbernicu mikropo- 
âltaâa, na K4 sO vyvedenâ vystupy 
VIDEO a SYNC a K3 je zatiaf nevyuiity. 
Na tento konektor je moinâ vyviesf 
vystupy z generâtora znakov (obvod 
C4) a potom nahradif pamăf EPROM 
pripojenlm na simulâtor EPROM, 5o 
dovoll dynamicky menif subor zobra- 
zovanych znakov pomocou programu. 
Pdvodne sa na doske râtalo s pamăfou 
2 x 1k, 5o vystaâl na formât 32 x 32 
znakov. Kecf som realizoval upravu na 
formât 64 x 32 znakov, nezostalo mi ui 
inâ rieăenie nei umiestnif cfalăie pa¬ 
măte na ,,poschodie“ opatrnym spâja- 
nlm dvojlc obvodov s medzerou asi 
2 mm medzi ich puzdrami, aby sa 
aspoh trochu zab ezpe âilo ich chlade- 
nie. Iba signâly CS nie je moinâ 
privâdzaf ku dvom puzdram paralelne, 
ale je potrebnâ na hornom z ich opatrne 
odhnuf noiiâku a C5 pripojif drâtikom. 
Takto vytvorenâ dvojica je zasunutâ 
v pătici, vyrobenej z dostupnych 16 
vyvodovych pătlc rozrezanlm a zlepe- 
nlm potrebnâho poâtu kontaktov. Toto 
netradiănâ rieăenie som si mohol dovo- 
lif kvâli tomu, ie v poâftaCi je umiestne- 
ny maly ventilâtor, ktory sa starâ aspoft 
âiastoâne o chladenie systâmu. Displej 
mâ v tejto podobe ui „odjazdenych" 
niekofko desiatok hodln a zatiaf sa 
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neobjavili ăiadne problâmy s pamăfami 
RAM. Troăku problâmov robi pătica 
pre pamăf EPROM, kde sa obdas 
objavuju bodovâ poruchy zobrazovania 
znakov (nadbytodnâ biele bodky 
v znaku), ktorâ su spdsobenâ nedoko- 
nalym kontaktom pamăte EPROM 
v pătici a zmiznu po ich predisteni. 

Obvody 05, F3, F4, F5, F7 su umie- 
stnenâ mimo hlavnâ spojovâ pol©- 
Potrebnâ pldăky pre umiestnenie tych- 
to obvodov sa zîskali upravou pomoc- 
nych ploăiek medzi konektorami (pre 
05 a F5), pripadne ploăiek, na ktorâ sa 
pripâjajd samotnâ konektory (pre 
ostatnâ doplnenâ obvody). 

Obvod prevodnika signâlov VIDEO 
a SYNC na uplm/ TV signâl je realizova- 
ny na malej doătidke jednostrannâho 
ploănâho spoja. Presny obrazec spojo- 
vej dosky neuvâdzam, nakofko by bolo 
vhodnâ urobif jeho upravu nahraaenlm 
pevnyeh rezistorov R x3 trimrami, do 
umoînl presnejăie nastavovaf jasovâ 
urovne pre jednotlivâ stupne jasu. 
Kedze sa jednâ o pomerne jednoduchâ 
zapojenie, takyto nâvrh zvlâdne kaidy. 

Napriek tomu, ie sa jednâ o pomer¬ 
ne zloiitâ zapojenie, pri jeho oiivovanl 
vystadlme s logickou sondou a oscilo- 
skopom, pomocou ktorâho nastavlme 
oscilâtor na poiadovanych 12 MHz 
a postupne kontrolujeme jednotiivâ 
priebehy na v^stupoch prlmârnej 
a sekundârnej dasovej zâkladne. Rov- 
nako skontrolujeme a nastavlme poia- 
dovanu dliku pre impulzy HSYNC 
a VSYNC. Pokiar nemâme generâtor 
znakov v pamăti EPROM, mozno funk- 
ciu displeja skuăaf tak, ze jednotlivâ 
vystupy v pătici pre EPROM pripojfme 
postupne na zem krâtkym drdtikom, 
pridom sa nâm maju vytvâraf na obra- 
zovke dierno-biele zvislâ pâsiky uspo- 
riadanâ pod Fa toho, ktorâ vystupy 
mâme uzemnenâ. Pamăte RAM osa- 
dzujeme a i po dokonalom preskuăanl 
funkcie dekodâra adries, oddefovada 
datovej zbernice a prepinada adresovej 
zbernice. Pri oiivovanl mâ displej vodi 
inym obvodom obrovsku vyhodu v tom, 
ie sa nâm dinnosf displeja vermi 
nâzorne prejavuje na obrazovke, do 
vermi pomâha pri hfadanl pripadnych 
zâvad. Pri preclznej prâci pri zapâjani 
dosky mdie tâto pracovaf takmer na 
prvâ zapnutie. 

Programovâ obsluha displeja 
DIS84 

Napriek tomu, ie tento displej je 
zlozitejăl nei napr. AND-1, jeho progra- 
movanie sa nekomplikuje, naopak 
v niektorych ohradoch sa stâva jedno- 
duchălm. 

Prvou programâtorskou ulohou pri 
oiivovanl tohoto displeja je naprogra- 
movanie generâtora znakov, ktory je 
v pamăti EPROM ţypu 2716. Tâto 
pamăf nâm pri rastri 8x8 bodov na 
jeden znak dovofuje vytvorif ai 256 
znakov. Pritom je vyuiitâ do posled- 
nâho bitu. Prvych 128 znakov s D7 
= 1 odpovedâ suboru ASCII znakov. 
Namiesto riadiacich nezobraziternych 
kddov mozno zadefinovat rdzne semi- 
grafickâ symboly. 

Spdsob naprogramovania znaku je 
zrejmy z prlkladu uvedenâho na obr. 6 
pre znak E. V displeji 8080 MC-DI bol 
pouiity rovnaky spdsob kddovania 
znakov v generâtore znakov s EPROM 
typu 2708 ai na inu polohu znaku 
5 x 7 v rastri 8 x 8. Je preto moinâ 
pouiit tabuFku znakov vytvorenu pre 
tento displej aj pre displej DIS-84. 


ADRESA 
228H 
229H 
2 2 AH 
22BH 
22CH 
22DH 
22EH 
22FH 



KODY 

7CH 

40 H 

40H 

70H 

40H 

40H 

7CH 

00H 


Tabufka d. 1. Vyznam bitov prlznako- 
vâho bajtu 

D0 — Blikanie 
Dl — Inverzia 
D2 — Dvojitâ Sirka znaku 
D3 — Blokovanie zobrazenia 

(programovâ zatemnenie) 

D4 — Jas A (Farba R) 

D5 — Jas B (Farba G) 

D6 —las C (Farba B) 

D7 — Preplnanie suboru znakov v EPROM 2732 


Obr. 6. Prfklad kddovania znaku 
v generâtore znakov 

Druhu sadu znakov s D7 = 1 si mdie 
navrhnut kaidy sâm podfa svojich 
poiiadaviek. Moino sem umiestnif na- 
priklad celu grecku abecedu a rdzne 
symboly pouifvanâ vo vedeckotechnic- 
kych textoch, ale tiei rdzne grafickâ 
obrazce, ktore sa daju vyuilvaf na 
vytvâranie obrazov a na hry. Kto mâ 
tladiareft, ten sa bude snaiit prispdso- 
bit tieto znaky tomu, do vie jeho 
tladiared. 

Pre displej DIS-84 vâak mdieme 
vytvorif tiei generâtor znakov s 512 
symbolmi pri pouiiti pamăte typu 2372, 
pridom adresovy vodid AII tejto pa¬ 
măte je napojen^ na bit D7 priznako- 
vâho bajtu (vicf obr. 1.). To nâm 
umoifiuje programovym nastavovanlm 
tohoto bitu ovlâdaf vorbu dvoch subo- 
rov po 256 znakov. V subore riadiacich 
kddov ASCII je dvojica SO, SI, ktoru 
moino pouiit na takâto preplnanie. 

Z vyăăieuvedenâho vyplyva, ie cely 
znakovy bajt sa vyuilva na vorbu 
znaku. Mdd zobrazenia znaku je 
ovlâdany priznakovym bajtom. V ta- 
buFke fc. 1 je uvedenâ priradenie 
mddov zobrazenia jednotlivym bitom 
prlznakovdho bajtu, v taburke d. 2 su 
zas uvedenâ kddy pre văetky moinâ 
kombinâcie mddov zobrazenia. 

V obvyklom aifanumerickom reiime 
sa pri nulovanl displeja muşi zabezpe- 
dif zapisanie celej obrazovej pamăte 
priznakov zvolenym kddom mddu zo¬ 
brazenia, napriklad 00H pre 64 znakov 
na riadok v normâlnom zobrazenl, 04H 
pre 32 znakov na riadok v normâlnom 
zobrazenl. Realizâcia kurzora je vermi 
jednoduchâ a spodiva v zâpise kddu 
pre inverzny a blikajuci znak do prl- 
sluănâho miesta pamăte priznakov. 

Programovâ obsluha rolovania obra- 
zu je zrejmâ z toho, do ui bolo uvedenâ 
v popise zapojenia. 

Pre zabezpedenie dinnosti displeja 
v beinom aifanumerickom reiime ui 
mâm vypracovany program, ktory vzni- 
kol upravou programovâho modulu 
OUTDIS napisanâho pre displej AND-1. 
Nebol vSak zatiaf preskuSany v râmei 
celâho monitora mikropodltada 
TOM-84, na ktorom eSte stâle pracu- 
jem, preto jeho v^pis zatiar nepripâjam. 

Semigrafickâ moinosti displeja su 
takâ bohatâ, ie zadlna byt problâmom 
ich vdetky pine vyuilvaf. NakoFko vâak 
je vyber znakov a mddov zobrazenia 
realizovany nastavovanlm jednotlivych 
bitov v znakovom a priznakovom bajte, 
je ich ovlâdanie pomerne jednoduchâ 
a dâ sa realizovat ako nastavovanie 
a nulovanie programovych masiek pre 
obidva bajty. 

Uplne na zâver uvâdzam eSte jeden 
nâmet, urdeny pre majiterov farebnych 
televizorov. Bity D4 — D6 prlznakovâho 
bajtu sa vyuilvaju na ovlâdanie jasu 
zobrazenia znaku. Je văak moinâ zme- 
nif zapojenie tak, ie sa vyuiiju na 
ovlâdanie farby. Potrebnu upravu zapo¬ 
jenia neuvâdzam, pretoie som sa touto 
otâzkou zatiar nezaoberal. 


TabuFka 6. 2. Kddy pre programova- 
nie mddov dinnosti displeja 

X0H 64 znakov na riadok, normâlne zobrazenie 
XIH 64 znakov na riadok, blikajuci znak 
X2H 64 znakov na riadok, inverznd zobrazenie 
(biele pozadie) 

X3H 64 znakov na riadok, inverzny a blikajuci 
znak 

X4H 32 znakov na riadok, normâlne zobrazenie 
X5H 32 znakov na riadok, blikajuci znak 
X6H 32 znakov na riadok, inverznâ zobrazenie 
X7H 32 znakov na riadok, inverzny a blikajuci 
znak 

X8H ai XFH — zatemnenie zobrazenia 
0XH maximâlny jas znaku 


7XH minimâlny jas znaku 
8XH ai FXH — navolenâ druhâ sada 256 znakov 
v EPROM 2732 

Vysledny k6d priznakovâho bajtu sa ziskava 
lineârnou kombinâciou uvedenych moinosti (X je 
Tubovornâ hodnota 0 ai F). 


Taburka 6. 3. Zapojenie konektorov 


K1, K2, K4 




Kontakt 

K1 

K2 

K4 

1 

zem 

zem 

zem 

2 

+5 V 

+5 V 

+5 V 

3 

INT 3 

zem 

— 

4 

INT 2 

—5 V 

— 

5 

INT 1 

zem 

— 

6 

A15 

+ 12 V 

— 

7 

A14 

zem 

VIDEO 1 

8 

Al 3 

+ 15 V 

VIDEO 2 

9 

Al 2 

-15. V 

V1DEQ-3 

10 

AII 

PIP 

VIDEO 4 

11 

A10 

CŞO (KBD) 

VIDEO 5 

12 

A9 

CST (KBD) 

VIDEO 6 

13 

A8 

IOW 

VIDEO 7 

14 

A7 

IOR 

VIDEO 8 

15 

A6 

MW 

SYNC 

16 

A5 

MR 

— 

17 

A4 

INTA 

— 

18 

A3 

Ml 

— 

19 

A2 

ĂBN 

— 

20 

Al 

HLbA 

— 

21 

A0 

DEN 

— 

22 

D7 

STSTB 

— 

23 

D6 

HOLD 

_ 

24 

D5 

înTe 

_ 

25 

D4 

rE§- 

— 

26 

D3 

osc 

— 

27 

D2 

RTL 

— 

28 

Dl 

RDY 

— 

29 

DO 

4>2TTL 

— 

30 

+5 V 

+5 V 

+5 V 

31 

zem 

zem 

zem 
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Osobnâ poCitade ATARI 800 XL a ATAR1130 XE su vybavenâ sâriovym interfejsom, na ktory je moini pripojif 
tlaCiarne typu ATARI, pruiny disk a ini prîdavnâ zariadenia. Probtem pripojenia tlaCiarne s interfejsom 
CENTRONICS popr. IRPR (SMEP) ku ATARI je v popredi zâujmu viacer^ch pouiivatePov tychto osobnych 
poCitaCov. 


NajCastejSim rieSenim, aj pri inych 
typoch poCitaCov, je vyuiitie vornâho 
tzv. “USER PORT“ a snaha riadif 
iiadany typ interfejsu vlastnym ovlâda- 
dm programom. Pokiaf sa podari 
prepîsaf smernik v operaCnom sy- 
stâme ukazujuci na riadiaci program 
tlaCiarne, je moinâ pouiivaf systâmovâ 
prfkazy LPRINT, OPEN, PRINŢ#, LIST 
"P:“ atcf. Takâto rieSenie predpokladâ 
detailnâ informâcie o operaCnom sy- 
stâme a je podmienenâ zavedemm 
programu, ktory zmodifikuje operaCny 
systâm. Problâm nastane, ak si apli- 
kaCne programovâ vybavenie samo 
nastavuje smerniky riadiacich progra- 
mov — logickâ priradenie fyzickych 
pridavnych zariadeni — alebo “tvrdo“ 
volâ systâmovâ ovIâdaCe. 

Technickym rieăenfm problâmu je 
rieăenie technicko programovâho vy- 
bavenia — jednoduchâho adaptâru, 
ktory na jednej strane emuluje interfejs 
ATARI a na strane druhej riadi interfejs 
pripâjanej tlaCiarne. Takto rieăi pro¬ 
blem napr. firma GE pre svoje tlaCiarne 
kompatibilnâ s ATARI a COMMODORE. 

Pri pouăiti suCasnej mikropoCitaCo- 
vej suCiastkovej zâkladne ide o jedno- 
duchy emulaCny mikropoCltaC zloăeny 
z niekorkych obvodov a napâjany pria- 
mo z pripâjanej tlaCiarne. 

Predmetom tohto prispevku je popis 
ATARI intefejsu, tak ako bol ziskany 
pokusnym meranlm, nâvrh technic- 
kâho a programovâho vybavenia emu- 
laCnâho mikropoCftaCa postavenâho na 
u nâs najdostupnejăej suCiastkovej zâ- 
kladni mikroprocesora MHB 8080 
s vlastnym zdrojom. Popis interfejsu 
ATARI pre pripojenre tlaCiarne je po- 
trebnâ châpaf ako suhrn informării, 
ktorâ sa podarilo ziskaf bez dokumen- 
tâcie, len meranîm pomocou oscilosko- 
pu, logickâho analyzâtoru a dedukcie, 
Co by asi bolo logickâ. Preto tento 
popis nie je uplny, nerieăi văetky moină 
chybovâ stavy, ale postaCuje na spofa- 
hlivâ emulovanie ATARI serial interfej¬ 
su. VSetky Ciselnâ udaje vo vypise 
komunikaCnâho protokolu su v hexa- 
decimâlnej sustave. 

POPIS 

“ATARI SERIAL INTERFACE** 

ATARI serial interfejs je z technic- 
kâho hradiska asynchronny sâriovy 
prenos s jednym START a jednym 
STOP bitom bez pouiitia paritnâho 
bitu. Interfejs pracuje v logike TTL na 
krâtku vzdialenosf vysokou prenoso- 
vou rychlosfou 19200 baudov. 
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d) ACK 41 — tladiareft potvrdl prijem 

e) SBLK 43 — po tomto znaku tladiareft 
vySle svoje stavovd hlâsenie. 

—Datovy blok 

Datovy blok je ătandardne dlhy 40 
znakov a je doplneny 41. znakom, do je 
opăf kontrolnâ suma. ATARI nevyăle 
nikdy datovy blok inej dfeky aj keby mal 
tento obsahovaf do len jeden platny 
znak. Dfăka datovdho bloku je urdenâ 
parametrom v operadnom systdme. 

V datovom bloku mâ vynimodnd 
postavenie znak 9B, ktory je moind 
châpat ako znak ukondujuci dâta 
— EOT resp. EOF — nakorko sa nlm 
doplni datovy blok do definovanej dliky 
(40) pri prlkaze CLOSE. Prikaz CLOSE 
spâsobi vystup beindho dâtovdho blo¬ 
ku, ktordho obsahom je zbytok vyrov- 
nâvajucej pamăte doplneny resp. 
ukonden^ znakom 9B. Riadiaci signâl 
CMD je aktfvny pri vysielanl riadiaceho 
prikazovdho bloku. 

Grafickd znâzornenie komuni- 
kadndho protokolu 


CMD 



Obr. 3a. Interpretăcia prtkazu Open n, 
code, aux, "P“ 


CMD 



Obr. 3b. Vytlaăenie naplnenej vyrov- 
năvacej pamăte resp. interpretăcia 
CLOSE 


Def inovat presnd dasovd limity, 
znâzornend na obrâzku ako At, sa mi 
nepodarilo, ale tento das je zhora 
obmedzen]/ tak, aby programovd vyba- 
venie partnerskâho mikropodftada stih- 
lo bez probldmov vyhodnotit prijatu 
informâciu a vyslat odpovecT. Râdove 
su to ms a operadny systdm ATARI pri 
prekrodenl niektordho z tychto dasov 
hlâsi chybovy oznam. 

Vynimodne dlhy je das Tp, ktory by 
bolo moănd uviest v sekundâch. Tento 
das je vyuiity na vytladenie prijatdho 
dâtovdho bloku a vyhovuje aj najpo- 
malăîm tladiarrtam bez vyrovnâvaclch 
pamătf. 

Pri pohrade na takto definovany' 
interfejs tento budf dojem jednoducho- 
sti a udeinosti. Je na Skodu veci, ie ho 
firma ATARI nepublikuje. Pri anaiyze 
jednotlivych znakov v riadiacich Struk- 
turach je moind zistit ich vyznam. 
Z hradiska emulâcie tladiarne, ktorâ 
nepoznâ iny stav ako READY 
a v kazdom inom pripade naruSuje 
protokol, je vyznam tychto znakov 
nepodstatny a i na jeden, a to je adresa. 
Z porovnania riadiacich dtruktur 
a z pokusn^ch zapojeni som urdil, ie je 
vhodnd reagovat na prvy znak ako na 
adresu, do je v pripade tladiarne 40H. 

Gplny obraz emulovandho ATARI 
interfejsu poskytuje vypis zdrojovdho 
textu ovlâdacieho programu zapîsa- 
ndho v assembleri 8080. 

POPIS TECHNICK&HO 
VYBAVENIA ADAPTâRA 
ATARI INTERFEJSU 

Technickd vybavenie bolo navrhnutd 
na dostupnej sudiastkovej zăkladni na 
bâze mikroprocesora MHB 8080 a jeho 
podpornych obvodov. Aby bolo moind 
jednoducho zamenit centrâlny proce¬ 
sor za iny, napr. Z80 resp. 18085, resp. 
vyuiit univerzâlnu procesorovu dast aj 
na riadenie podobndho interfejsu pre 


COMMODORE C 64, je technickd vyba¬ 
venie rozdelend na dve dasti: 

a) Centrâlny procesor 

b) Interfejs tladiarne a sdriovy interfejs 
ATARI 

Pouăitie pamăti EPROM 2708 a RWM 
2114 bolo vynutend ich relativne naj- 
lepăou dostupnosfou. Daleko ekono- 
mickejăie je mo2nd postavif riadiaci 
procesor na bâze 18085, pripadne MHB 
8748. Zapojenie vyuilva pre vstupno 
vystupnd operâcie adresy z pamăto- 
vdho priestoru a adresny dekoddr 
rozderuje pamăt nasledovne: 

0000 

0800 

1000 


1800 


2000 


2800 

Pri adresâch vySSIch ako 4000H sa 
aktivuju tzv. “zrkadlovd" adresnd prie- 
story. VSetky riadiace signâly, potrebnd 
na ovlâdanie interfejsu su vyvedend na 
30 kontaktovy konektor FRB a ploSny 
spoj je rieăeny tak, aby sa signâly na 
oboch ploănych spojoch dostali na 
odpovedajuce si kontakty, do ufahduje 
ich spojenie. 

Doska interfejsu obsahuje progra- 
movaterny dîtad 8253, aby bolo moănd 
jednoducho vydelit frekvenciu 
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19 200x16 pre USART 8251 z O^TTL. 
Pouiitie tohto obvodu je moine ocenif. 
ak je potrebnâ pripojif ku adaptâru 
seriovu tlaCiareft a riadiaci program 
muşi prepinaf prenosovu rychlosf 
z 19 200 na 200, resp. 300 baudov. Pre 
ufiely napojenia sâriovych tiadiarnf je 
technickâ vybavenie interfejsu doplne- 
nâ jednoduchym prepinadom na hrad- 
lâch 7400 s vyuiitim programovo 
ovlâdanych vystupov 8251 RTS a CTS. 
Uvedeny riadiaci program nerieăi pri- 
pojenie sâriovej tlaCiarne, a v pripade 
potreby ho je moine modifikovaf. 

Oviâdanie paraielnych tladiarnî s in- 
terfejsom IRPR/CENTRONICS apod. 
riadiaci program zabezpeCuje pro- 
strednîctvom programovaternâho obvo¬ 
du MHB8255. Technickâ rie§enie 
poskytuje 8 dâtovych tfodiâov, 4 riadia- 
ce a 4 stavovâ vodiCe. Ostâva eăte 
nepouiity port B. 

Riadiaci program, uvedeny v prîlohe, 
je pisany pre interfejs IRPR, preto su 
signâly oznaCenâ nâzv ami tohto inter¬ 
fejsu. Signâl DAT/DĂ? umoiftuje jed¬ 
noduchym nastavenim potenciâlu 
log. 0 resp. log. 1 riadif polaritu vy- 
stupnych dât. Vă£§ina tladiarni umoz- 
fluje nastavif polaritu prepfnaftom 6i 
prepojkou, ale pokiar tomu tak nie je, 
napr. CONSUL 2111, je potrebne menif 
riadiaci program, 6o spdsobi probiemy 
ak je ui adaptor vyrobeny a oiiveny pre 
iny ţyp tladiarne. Podobne v pripade, ie 
vznikne problem polarity riadiaceho 
signâlu, su na ploănom spoji interfejsu 
dve rezervnâ pozicie pre Tubovorny 14 
resp. 16 vyvodovy integrovany obvod 
so Standardnym napâjanim, Co by malo 
staCif v pripade jednoduchych uprav 
v zapojeni interfejsu. 

PodrobnejSf popis technickâho vyba- 
venia nie je potrebny, nakoFko ide 
o znâme a Casto publikovanâ zapojenie 
Standardnych suCiastok. 

POPIS RIADIACEHO 
PROQRAMU 

Riadiaci program je moine logicky 
rozdelif na dve fcasti pod Ta typu pouii- 
tej tlaCiarne: 

a) technicky nezâvisiu, 

b) technicky zâvislu. 

Nezâvisiu Cast riadiaceho programu 
tvori iniciaiizâcia programovaternych 
obvodov a emulovanie ATARI interfejsu 
pomocou MHB8251. 

PodFa typu pouiitâho interfejsu je 
potrebnâ modifikovaf podprogram 
TLCZNK — tla6 jeden znak na tladia- 
reft. Tento riadiaci program vyhovuje 
vădăine tlaSiarni dostupnych pre uiiva- 
teFov ATARI u nâs. V pripade potreby je 
v pamăfovom priestore EPROM dosta- 
tok vornâho miesta, aby bolo moinâ 
programovymi prostriedkami riadif aj 
iny typ zloiitejSich interfejsov. 


Riadiaci program pre atari interface 


; 

Kas - 

•87 


; 

priradenie 


CWTM 

EQU 

1803H 

adr.cw 8253 

TIMO 

EQU 

1800H 

; adr.pre TIMO 

CUSART 

EQU 

1001H 

; CW 8251 

DUSÂRT 

EQU 

1000H 

; dat.reg.8251 

CWPIO 

EQU 

2003H 

; CW 8255 

PA 

EQU 

2000H 

; adr. port A 
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Obr. 4. Obrazce ploănych spojov dosky centrâlneho procesora X601 


PB 

EQU 

2001H ; 

adr. port B 

STA 

CWTM 


PC 

EQU 

2002H ; 

adr. port C 

LXI 

H.7 

; 19200x16 hz 

PCI 

EQU 

2003H ; 

bit.oper.PC 

MOV 

A.L 






STA 

TIMO 



.phase 

0 


MOV 

A.H 






STA 

TIMO 

: CLK de lene 7 


LXI 

SP.0B00H; 

zasobnik 








; 8251 




inicializacia obvodov 

; - 







MV I 

A.4EH 

; 8 b./l stop 

; 8253 






no par. 

;- 




STA 

CUSART 






MVI 

A,5 

; RxE / TxE 


MV I 

A.36H ; 

TIMO/MOD 3 

STA 

CUSART 











READX: 





CALL 

WCMD 

; caka j na CMD 


MVI 

B. 5 



LXI 

H.CMDBL 

; 5 riad.znakov 


CALL 

DATA 

; preber data 


CALL 

WNCMD 

; koniec cmd ? 


LDA 

CMDBL 



CPI 

40H 

; adr.tlaciarne 


JNZ 

START 

; ina adresa 


CALL 

ACK 

; moja adresa 




: potvrdim 


LDA 

CMDBL+1 

: operacia 


CPI 

53H 

; open ? 


JNZ 

DATBL 

; nie tak data 


MVI 

B, 6 

; ak open 




vysli stâtus 


LXI 

H.ODP 

; z tab.odpoved 

LC: 





MOV 

C.M 



CALL 

VZNK 

: znak do atari 


INX 

H 



OCR 

B 



JNZ 

LC 



JMP 

START ; 

; ukonceny open 


prijem dat. bloku v dlzke 40 znakov 
+ kontrolna suma do vyrovn. pamate 


DATBL: 


LXI 

H.BUFF 


MVI 

B ,41 

: dlzka bloku 

CALL 

DATA 


CALL 

ACK' 

; potvrdenie 


prevzatia 


vytlac prijate data na tlaciaren 


LXI 

H.BUFF 


MVI 

B.40 


CALL 

TLC 

; vytlaci data 

CALL 

ACK 

: potvrdi sa 
ukoncenie oper 

JMP 

START 


podprogrami 


citaj 

jeden znak 

z atari 


A-citany znak 


CZNK: 

LDA CUSART 

ANI 2 ; prisiel znak ? 

JZ CZNK 

LDA DUSART 

RET 

; zapis znak do atari 


C-znak 

VZNK: 

LDA CUSART 

RRC ; vysielac rdy ? 

JNC VZNK 

MOV A,C 

STA DUSART 

RET 


cakaj na CMD signal 


WCMD: 

LDA CUSART 

RLC 
RC 

ANI 2 

JZ WCMD 

LDA DUSART 

JMP WCMD 

cakaj na koniec CMD 


WNCMD: 

LDA CUSART 

RLC 
RNC 

JMP WNCMD 

; citaj datovy blok 


HL-adr.vyrov.pamate 
B-pocet znakov 


; CMD je aktivny 
; prijimac rdy ? 

; uvolni prijim. 


. ! ■_I - I A_! I_ 


AC 


li 


îl*i^ m ..t n*TTTi j 





























































































































DATA: 


CALL CZNK 

MOV M,A 

INX H 

DCR B 

RZ 

JMP DATA 

vysli ACK do atari 


ACK: 

MVI C.41H : kod ACK 

CALL VZNK 

RET 


Tato cast programu je premenliva podla 
typu pripojenej tlaciarne.Zmenou 
podprogramu TLC alebo TLCZN je mozne 
menit interface. 




vysli data na tlaciaren 


HL-ADR. vyr . panta t e 
B-pocet znakov 


' 

MOV 

MOV 

CPI 

JZ 

CALL 

INX 

DCR 

JNZ 

RET 

C.M 

A.C 

9BH 

ETLC 

TLCZN 

H 

B 

TLC 

ukoncovaci 
znak dat 
komec dat 

: tlac znak 

ETLC: 





MVI 

C.OAH 

; kod pre LF 


CALL 

TLCZN 



MVI 

C.ODH 

: kod pre CR 


CALL 

TLCZN 



RET 




tlac jeden znak 



C-znak 




/ IRPR 

interface 

/ 

TLCZN: 





LDA 

PC 



ANI 

1 

: AC-O / rdy ? 


JNZ 

TLCZN 



LDA 

PC 

; prepojka 




polarity dat 


ANI 

2 

: data alebo 




negovane data 


JNZ 

TL1 



MOV 

A.C 



CMA 


: mverzia dat 


JMP 

TL2 


TL1: 

MOV 

A.C 


TL2 : 

STA 

PA 

; data na interf 


MVI 

A.OFH 

; PC7-strob dat 




SC / 


STA 

PCI 


Jl: 

LDA 

PC 



ANI 

1 

: AC-1 




potvrd.od tlac 


JZ 

Jl 

; cakaj na AC 


MVI 

A.OEH 

: zhod SC strob 


STA 

PCI 


J2 : 

LDA 

PC 

; cakaj na AC-O 


ANI 

1 

: interface rdy 


JNZ 

J2 



RET 




tabulky 


ODP : 

DB 

43H.80H. 

4EH.1FH.0.0EDH 


.dephase 



org 

800h 

: EWM priestor. 

CMDBL: 





DS 

5 

; prikaz.blok 

BUFF: 

DS 

41 

; prijatie dat 


end 



Obr. 6. Rozloienie suâiastok na doskâch procesora a interfejsov X601 a X602 
(na doske procesora nutno doplnif rezistor R3 z +5 V na vyvod 6. 6. IO 3205) 


ZĂVER 


Zoznam suâiastok 


Zapojenie, riad iaci program, ako aj 
dosky ploănych spojov, boli pouzitâ pre 
stavbu funkdnâho vzoru, ktor6ho spo- 
Tahlivâ Cinnosf boia overovanâ na 
zapojeni ATARI130XE a Dl 00. TiaCovo 
orientovanâ programy ako SPEED- 
SCRIPT pouifvali tlaâiareft Dl 00 ako 
ATARI tlaCiareft. 


a) Integrovanâ obvody 


MH7400 

1 ks 

c) Kondenzătory 




MH7405 

2 ks 


MHB8080 

1 ks 

KR580VI53 (8253) 

1 ks ZSSR 

10 pF keramicky 

1 ks 

MH8228 

1 ks 


64 pF keramicky 

9 ks (bypass) 

MH8224 

1 ks 

b) Rezistory 


20 pF elektrolyt. 

1 ks 

MH3205 

1 ks 

1 kfl 

2 ks 


MHB2114 

2 ks 

15 kn 

1 ks 

d) Ine 


MHB2708 

1 ks 

3,2 kfl 

1 ks 


MHB8251 

1 ks 

220 n 

4ks 

dioda KA201 

1 ks 

MHB8255 

1 ks 

3300 

4ks 

KryStâl 18,432 MHz 

1 ks 












































Ing. Ales Podrouiek, Budovatelu 2743, 40747 Vamsdorf 


Zăkladnî technickd udaje: 

Măfenf odporu: 4 rozsahy, od 1 O 
do 30 MQ 

Măfenf kapacity: 5 rozsahu, od 10 pF 
do 80 jiF 

Măfenf tepfoty: 1 rozsah, od 0°C do 
100° C (v kapaiind). 

Măfeni odporu 

Pro velikost pfevodu prevodnîku 
DIG1 2 pJatf podie II] vztah: 

P = 65 535 — 2048 . K . R (1) 


kde K = k.C (k=1,16 bylo zjiătdno expe¬ 
rimentând pro dând zapojenf 
MK0 1 podie obr. 2), R je odpor v 
kfi a C je kapacita v jiF vndjdfho Caso- 
'vacîho obvodu. Neznâmy odpor rezi- 
storu R x v kQ se vypoCftâ ze vztahu (2), 
kde Cn je kapacita kondenzătoru (vCet- 


nd vlastnf kapacity pffpravku) volenâ 
pFepfnadem rozsahu. Sdriovy rezistor 
R3 = 0,33 kn je na zadâtku mdfenf kali- 
brovân (promânnâ R9). 

R* - (65 535 — P)/(2375,68 . C n )-0.33 

( 2 ) 

Pfevod P je snfmân 10x a do vzorce 
se dosazuje jeho prumdmâ hodnota. V 
tab. 1 jsou informativnf udaje pro toto 
mărenl — rozsah 6 ai 9. 

Mdfenf kapacity 

Pro hledanou kapacitu kondenzătoru 
v mF odvodfme ze vzorce (1), ie 

C K = (65 535 — P)/(2375,68 . R„) (3) 

kde R n je celkovy odpor rezistoru (vCet- 
nd sdriovdho odporu R3, ktery je i zde 
kalibrovân). Vlastni kapacita pffpravku 
je pfibliind 200 pF. informativnf udaje 
pro toto mdfenf jsou v tab. 1, rozsah 1 


ai 5. Teoreticky moinou rozlidovacf 
schopnost udâvâ poslednf sioupec ta- 
bulky. 


Tab. 1. Mdfenf kapacity a odporu 


rozsah 


fMMmM 

pF/j- 

pfevodu 

mnm 

470 

0,01 al 5.9 

1 

n 

100 

5.9 al 275 

KM 

MM 

10 

275 al 2670 

K 3 H 

MM 

1 

2670 ai 21.10* 


5 

0,1 

21.10» al 84.10* 



CnfnF] 

mdfenf odpor 
R.IOJ 

ktyj. 

pfevodu 

6 

IO 3 

1 al 27 

0.4 


100 

27 al 276 

42 


10 

276 al 2760 

42.0 


1 

2760 al 27600 
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Mireni teploty 

Pro măPenî teploty byl jako snfmaă 
zvolen na trhu dostupny perliăkovy ter- 
mistor 13NR15 (odpor R 25 = 10 n ai 30 
kfi materiâlovâ konstanta B = 2800 ai 
3600 K, barevnă oznaăenf — ăemâ a 
modrâ teăka, vykonovâ citlivost neu- 
dâna). Pro pfevodnik DIGI 2 by byl 
vhodnăjăi termistor 14NR15 s vătăim 
odporem R» (30 Q ai 100 kn)[2]. Zâvi- 
slost odporu termistoru na teplotâ 
9 je dâna vztahem 



R R 25 .exp B. (1/298-1/(273 + 9)^ ^ Obr. 1. Schâma pffpravku na măfenf R, C, 9 


Măffme tedy opăt odpor. Z obr. 1 
je patrnâ pfipojenf termistoru k pff¬ 
pravku. V sării s termistorem je rezistor 
R 6 , kter^m zmenăujeme jeho vykono- 
vou ztrâtu a zâroveft optimalizujeme ve- 
likost pfevodu P v souCinnosti s ăaso- 
vacfm kondenzâtorem CI pfevodnfku 
DIGI 2. Ten je pfipojen sekcf pfepfnaăe 
rozsahu Pf*1c v poloze 11. Vykonovâ 
ztrâta je menăf nei 3 mW, tj. mână nei 
10 % z maxlmâlnfho pffpustnâho zatfie- 
nf termistoru tâto fady. Pro măfenf tep¬ 
loty v kapalină to postaăuje pro dosa- 
ienf termoelektrickâho reiimu. Neli- 
neârnf zâvislost odporu termistoru na 
tepiotă je aproximovâna logaritmickou 
regresf: 

9 = a + b . In P ■- (5), 


kde a, b jsou souăinitele zfskanâ re¬ 
gresf. Pracovnf rozsah 0 ai 100°C byl 
rozdălen do 6 -ti podrozsahu tak, aby 
korelaănf souăinitel byl pfibliină roven 
jednâ (0,999). 

Konstrukce pftpravku 

Schâma zapojenf je na obr. 1. Vzhled 
pffpravku (i s pfevodnfkem DIGI 2) je 
na str. 47. Zâkladem je krabiăka vyro- 
benâ z oboustrannâho kuprextitu 
tl. 1 mm o rozmărech 70 x 50 x 32 mm, 
spojenâ pâjenfm ve styănych plochâch. 
Dvanâctipolohovy tffpatrovy pfepfnaâ 
(typ APM) je pfiăroubovân v levă polo- 
vină krabiăky a drif i krycf organickâ 
sklo tl. 2 mm, chrânfcf popisovy Stftek. 


Vâtăina souăâtek je pfipâjena pffmo 
na kontakty pfepfnaăe nebo konektorO. 
Na pfednf stână je zâsuvka konektoru 
DIN 5/180. Je pfipâjena po obvodu 
pffruby ke stână krabiăky. Na zadnf 
stână je pfiiepena konektorovâ zâsuv¬ 
ka WK46515. Ve volnâm prostoru vpra- 
vo nahofe je pfipevnân mikrospfnaă 
B593, ktery se pouifvâ ke katibraci 
sâriovâho rezistoru R 6 pfi măfenf teplo¬ 
ty. 

Pro măfenf odporu a kapacity se 
pouifvâ driâk măfenych souăâstek, 
ktery je k pffpravku pfipojen tfiiilovym 
plochym ohebnym vodiăem, zakonăe- 
nym zâstrăkou konektoru DIN. Măfenâ 
souăâstky se upfnajf do upravenych 
krokosvorek (rozteă 20 mm). Vodiăe 

































jsou s krokosvorkami spojeny pâjenfm. 
Horn! kryci destiăka je tăi z organic- 
kăho skla o tl. 5 mm. 

Pred montări je tfeba souCâstky 
presnă zmăfit (R n , C n ). Usnadni se tlm 
prâce pfi kalibraci pflpravku. Rezistor 
R7 nahrazuje chybăjîci potenciometr 
P2 (obr. 2). Rezistor R1 je drâtovâ 
spojka. Spojeni S6 a S7 na konektoru 
WK nahrazuje chybăjîci mikrosplnaă 
z hledâăku digitizăru. Pred pfipojenfm 
pflpravku k DIG12 zkontrolujeme zapo- 
jenî konektoru WK. Muşi souhlasit 
s protikusem. Jeho ăâsti nejsou zajiS- 
tăny proti pootoăenî. Protoie otoăeny 
konektor nebo nepfipojeny pflpravek 
nemohou zpusobit havârii ani progra- 
mu ani pfevodniku, postaăl si pamato- 
vat, ie nâpisy TESLA na konektoru 
patfl napf. k sobă. 

Programov6 vybaveni 

Program je dostateănă vybaven ko- 
mentârem. Mâ dvă ăâsti: BASIC 
a strojovy kăd, ve kterâm je podpro- 
gram pro obsluhu programovatelnăho 
ărtaăe pfevodniku DIGI2. Program je 
dialogem mezi uiivatelem a poăftaăem. 
Pfi sprâvnăm plnănl pokynu, pokud 
ovăem nenl pfepinaC rozsahu v jină 
poloze nei je zadâno, dojde ke sprâv- 
nâmu măfenl. Po pfeătenl krâtkăho 
komentâfe se objevl MENU, umoiftujtci 
dală! volbu. Pfi măfenl odporu a kapa- 
city je nutnă po kalibraci zadat rozsah. 
Pfi jeho chybnăm zadânl, chybnă kali¬ 
braci nebo pfi stisku M, skoăl băh 
programu opăt na MENU. Pfi măfenl 
teploty se rozsah voii automaticky. I zde 
se provâdf kalibrace, po kteră je moină 
zadat korekci teploty, aby bylo dosaie- 
no souhlasu s teplomărem. 

—* Pfi oiivovânl pflpravku je tfeba 
zmănit hodnoty C„ od C. f. 1428 a R n od 
5. f. 1528 podle vysledku kalibrace. 
Podobnă je tfeba upravit regresnl 
funkce (podprogram fi. f. 8000) a 
hranice pod rozsahu v podminkâch od 
ă. f. 1080. 

Pfeteăenl obsahu programovăho 
ăltaăe 8253 pfi măfenl odporu a kapa- 
city je hlldâno testem jeho vystupu 
OUT 0 (ăltaă C0). Pfi vynulovâni jeho 
obsahu se zde objevl log. 1, kterâ je 
zjiătăna porovnânlm s maskou 7FH. V 
pffpadă shody pokraăuje program vy- 
nulovânim registrovăho păru HL a tato 
nulovâ hodnota se vraci do BASICu. To 
je zaregistrovâno v podprogramu „roz¬ 
sah" a na obrazovce se objevl pokyn 
„Zvol vătSI rozsah". Naopak, pokud je 

pfevod velky (ăltaă je v ăinnosti krâtkou 
dobu a rozdll 65 535 — P je mal]/), je 
htâăeno „Zvol menăl rozsah", takie 
prakticky nelze măfit ăpatnă. 

Kalibrace a ofiveni pfîpravku 

Jak jii bylo dflve uvedeno, je pro 
urychlen! seflzenl pflpravku vhodnă 
pfesnă zmăfit R„ a C„. Odpor săriovych 
rezistoru se zjiăfuje programovă pri 
kaidăm măfenl. Kalibrace rezistoru R3 
pfevodniku se provede zkratovânlm 
svorek R x . Jeho odpor se vypoăltâ ze 
vzorce (2) bez odeătenl hodnoty 0,33 
kn (tj. pfibiiiny odpor kalibrovanăho 
rezistoru). Podobnă se vyhiedâ i sku- 
teăny odpor kombinace R3 + R6 pfi 
măfenl teplot K doladănl pflpravku na 
văech rozsazlch byly pouiity normâly. 
Jejich hodnoty jsou voleny tak, ie se 
măfenl pfekryvâ na jednotlivych rozsa¬ 
zlch. TIm je zajiătăno i vzăjemnă porov- 
nănl jednotlivych sousednîch rozsahu. 


Vfpis programu „Măfenl R, C, 0“ s DIGI2 


• CLS 

4 PRINT'MERICI PRIPRAVEK' V 

8 PRINTSGOSUB26003REH LEGENDA 
10 GOSUB290®:CLS:G0SUB2630 
12 6OSUB29003CLS:6OSUB2650 
14 GOSUB29003CLSs GOSUB2700 

14 RA=26:GOSUB3000sG0SUB21003REMF00TRH;TEXT 
20 GOSUB2000 :REN Cekej 
180 DIMQ(20) 

182 DEFFNZ <X t O) = 1NT <X*10 “D-*- .5) /10"'D 
194 REM************************* 

196 REN MENU 

198 REN************************* 

200 CLS:PRINT45,0"M E N U" 

210 PRINT610,0"1—Hereni odporu" 

220 PRINT"2-Mereni kapacity' 

230 PRINT'3—Nereni teploty" 

240 PRINT'4-Konec prograeu" 

245 PRINT'5-Nahrani progranu" 

250 GOSUB2050 s REN VOLBA 

300 ONVAL(V»> G0SUB1400,1500,1000,9999,49990 
310 GOTO200 

1000 REM************************ 

1002 REM MERENI TEPLOTY 

1004 REM»»*»»»*»»*»*********»*** 

1006 CLSSPRINT"MERENI TEPLOTY" 

1008 PRINT'Pouzity sniaac - 13NR1S. 

1010 PRINT'Rozsah teploty - 0 AZ 100 st.C v kapaline." 

1012 PRINT’K prevodniku DIGI2 pripoj pri-pravek na Mareni teploty." 

1014 PRINTiPRINT'Nynl provedeMe kalibraci prevodu' 

1022 PRINT'Teraistor zkratujeae aikrospi- cea, ktery podrziae a soucas 
1024 PRIMT'ne stiskeee tlacitko."SGOSUB2000 " 

1024 PRINT&12,0SPC(255)SPC(255) 

1028 GOSUB7000SREM KALIBRACE 

1030 RA= 24sG0SUB30003 GOSU B2110:6OSUB2000 

1034 PRINT&12,0SPC(2551}SPC(255); 

1034 RA=14SGOSUB3000:REM POOTRZENI 
1038 RA=24sGOSUB30003AP=03Tl=0 
1044 GOSUBS000 s REM MERENI 
1048 Rl=HEX<FFFF>-Q-RsT=0 

1050 REM PRINT«.23,0"Rl=*FNZ{Rl,0>623 f 10"P>Q="FNZ(Q,0>"R=*FNZ<R t 0) 

1052 IFR1<0 OR Rl>65535-RTHENPRINT627,0'Miao rozsah -> MENU":GOSUB2000:GOTO200 
1070 IF A0="H"THEN200 
1078 REM 0 az 14 

1080 IFR1>37000 AND R1<>59400THEN 8010 
1082 REM 14 az 30 

1084 IFR1)18000 AND R1<-37000THEN 8020 
1084 REM 30 az 40 

1088 IFR1>11500 AND R1 < = 18000THEN8030 
1090 REM 40 az 50 

1092 IFR1>7900 AND R1<=11500THEN8040 
1094 REM 50 az 70 

1096 IFR1>4000 AND R1<=7900THEN 8050 
1098 REM 70 az 100 

1100 IFR1>1532 ANO R1<=4000THEN 8060 

1186 GOSUB2200SREH TEXT1 

1187 PRINT612,0RO*;SPC(5> 

1188 PRINT616,0'Merena teplota"SPRINT 
1190 PRINT"T«"|TAB<9> "stupno Celsia* 

1192 T=T+TlsT*FNZ<T,l> 

1194 PRINŢ620,2T 

1196 UAITC20):PRINT420,2SPC(7> 

1198 IF AP=1 THEN1210 
1200 AP=l:PRINT&20,2T626,0j 

1202 INPUT'Korekce teploty";Tl=PRINT626,21"st.Celsia" 

1210 IFINKEY*=*'THEN1044 

1212 GOTO200 s REM MENU 

1400 REM***»»*****»»*********»*» 

1402 REM MERENI ODPORU 

1404 REM****»*»**»»*»***»*»*»*** 

1406 CLSSPRINT62,0"MERENI ODPORU" 

1408 PRINT"K prevodniku DIGI2 pripoj pri-pravek na «ereni odporu a kapa -City 

1409 PRINT'Meri odpor v intervalu 1 Oh* - 30 MOha" 

1410 PRINT'Po pripojeni pokracuj stiskea tlacitka " 

1412 GOSUB20003G0SUB71003 REM KALIBRACE R 6 C 

1414 PRINT610,0SPC<255>;SPC<255>;SPC(128> 

1416 RA=13s6OSUB3000sRA=24!GO5UB3000sGOSUB210®=GQSUB2000 

1418 IFA**"4"ORA6='M"THEN200 

1420 RA=17sGOSUB3000sIFINKEY*='M"THEN200 

1422 PRINT415,®;sINPUT'Zvol rozsah (6-9)~;Bt 

1423 IFB»<"6" OR BS >"9"THEN200 

1424 GOSUB5000 3 GOSUB6000 

1426 R1=HEX<FFFF)-QsR£M PRINT623,0'Rl="Rl}423,14"Prevod="O 

1428 IFB*="6"THENC=.8430=2 

1430 IFB*="7'THENC=.130=1 

1432 IFB*="8"THENC=.965E-23D=1 

1434 IFB0="9"THENC=1.03E-3sD=0 

1436 REMIFB*="l®"THENC=3E-3 

1438 G0SUB2100 s GOSUB2200 

1450 Rl=Rl/2375.68/C-R9 

1452 PRINT619,0*Mereny odpor" 

1454 IF R1>=1 AND R1<1000THEN1480 
1456 IF R1>1000THEN1472 
1458 Rl=FNZ <R1,4)*1000 
1460 IF R1<0 THENR1=0 
1464 GOSUB40003REM oh» 

1466 COTOI482 

1472 Rl=Rl/1000sRl=FNZ(Rl,2> 

1474 GOSUB4100iREM aegaoha 
1476 G0TD1482 

1480 PRINT622,0"R="622,10"kiloohau";sRl=FNZ<R1,D) 

1482 PRINŢ622,2R1; 

1490 GOSUB2000sPRINT622,2SPC<30>; 

1492 IFA*="M*THEN200 
1494 G0T01418 

1498 GOSUB2100sGOSUB2300sGOSUB2000sPRINŢ621,2SPC<30>;SG0T01418 

1500 REM a*****»»*»***»*»*****»» 

1502 REM MERENI KAPACITY 

1504 REM •**•*•••*••••*•******«* 

1505 REM MERENI KAPACITY 

1506 CLS3PRINT62,0"MERENI KAPACITY" 

1508 PRINT'K prevodniku DIGI2 pripoj pri-pravek na aereni odporu a kapa -city 

1509 PRINT'Meri kapacitu v intervalu 10pF - 80 aikrofarad" 

1510 PRINT'Po pripojeni pokracuj stiskea tlacitka " 

1512 GOSUB20003GOSUB71003REM KALIBRACE R 6 C 

1514 PRINT610,0SPC(255>;SPC(255>;SPC<128> 

1516 RA=1316OSUB3000 s RA=24:GOSUB30003 G0SUB2100 





1518 GOSUB20««:RErt CEKEJ 
152* IFA*«'4'THEN200 
1522 PA=1?:GOSUB38®0 

1526 PRINTi.3 5,0;îINPUT'Zvol rozsoh <1~5>";C* 

1528 IFC 8 C”1' OR C«>'5'THEN288 
153* GOSUB5880SGOSUB4®*» 

1532 GOSUB2100:GOSUB220e 
1534 R1=HEXCFFFF)-0 

1534 REM PVNT423,0”Rl="Rl}423,13*Prevod Q="0 

1538 IFC*='1'THENR=1024:O=2 

154# IFC*="2'THENR=103.99tB=2 

1542 IFC*»'3'THENR=10.1îD=l 

1544 IFC*«'4'THENR».94sD*8 

1544 IFC*«-5*THENR=»!O=0 

1548 Cl=Rl/2.37568/CR+R9) —.2 

155# PRINT419,0'Merena kopacita" 

1552 IFC1>=1 ANO Cl<1000THEN1570 
1554 IFCD1000THEN1S64 
1556 C1=FNZCC1,4>»1080 
1558 GOSUB4200 
1568 O0TO1572 

1564 Cl«Cl/1000eCl«FNZCCl,2> 

1544 6OSUB4300 
1548 S0T01572 

1578 PRINT422,0"C*'&22»ll"nanofarad'5Cl*FNZ(CI ,0) 

1572 PRINT622,2C1 

1574 GOSUB2000»PRXNT622,2SPCC30> 

1574 IFINKEY8*"M"THEN288 
1578 G0T01S26 

2848 REM***»**»*»**»»»»*»»**»»*» 

2882 REN CEKEJ 

2884 REM*****»*»**»»***»****#*** 

2818 A8«INKEY**IFA8="THEN20I0 
2815 UAZTC10)«RETURN 
2848 RETURN 

2858 RE N » » »»»» X NWHHHMH HHt »«»»»» 

2852 REM VOLBA 

2854 REN»»»»»*»»»»*»*»»*»»»*»*»» 

2868 V8»INKEY8tIFV8»*'THEN2868 

2845 VIAlT (18) (RETURN 

2188 REN***»*»**»»»»*****»»***** 

2182 REN TEXT 

2184 R£M«***»*****«»***»**»«»*** 

2118 PRINTI.27,0‘Pokracuj stiske» tlacitka' 

2115 RETURN 

2288 REM»*»**»»»»»****»*»*****»* 

2282 REN TEXT1 

2284 REHwhhhmhwmihhhwhm**»» 

2218 P*INT429.0'HENU - prăsi», padrz H'» 

2215 RETURN 

2388 REM»*»»»»«» » »»»»» » »»» » »»»»» 

2382 REN TEXT2 

2384 REN»*»»*»»»*»»**»»»**»»*»** 

2318 PRIMT029,0"Navrat na MENU - spatnou voibou rozsahu"; 

2315 RETURN 

2488 REN**»****»»*»»*»*»»»»»»»» 

2482 REN TEXT 3 

2484 REH»***» 8 »*»***»»»*»*»*»** 

2484 PRINT425,0"ZvoI vetsi rozsoh':8OSUB2100«GOSUB2000 
2488 PRINT125,8SPC<28> 

2418 RETURN 

2588 r€h»»«■»»««»»»»»»»»»»»»»»» 

2582 REM TEXT 4 

2584 REM»»»»»*»»»»»»»»»»»»»»»»» 

2584 PRINTI»25,8'Zvol «*nsi rozsoh'*GOSUB2100:GOSUB2000 
2588 PRINT425,8SPC<28> 

2518 RETURN 

2488 REN»» » »»»■»»»»»»»»»»»»»»»» 

2682 REN TEXT 5 

2484 REN*»******»*»»*****»**»**» 

2606 PRINT"Leg«?nda" 

2408 PRINT'Tento progra* slouzi pro obsluhu" 

261® PRINŢ'»ericiho pripravku k A/D prevod-' 

2612 PRINT'nlku 0161 2. Pripravek u»oznuje~ 

2614 PRINT"»ereni odporu rezlstoru, kapaci-" 

2616 PRINT'ty kondenzatoi-u a teploty . 

2618 PRINT'Spojeni s prevodn'ike» je prove -* 

2628 PRINT'deno konektore» UN napisy TESLA * 

2622 RETURN 

2638 PRXNT'k sobe. Herena soucastka se up-" 

2632 PRINT'ne do prislusnyeh krokosvorek " 

2634 PRI.NT"R« nebo Cx spojenych konektore» " 

2636 PRINT'OIN 5/180.Upnuti soucastky »usi " 

2638 PRINT'byt spolehlive.Pro »ereni teplo-' 

2640 PRINT'ty je sniaac pripojen tez konek-" 

2642 PRINT'tore» DIN 5/180. Nasledujici ta~" 

2644 PRINT'bulko ukazuje funkce prepmace. “ 

2646 RETURN 

2658 REM»*»*»**»*»*»***»**»*»»** 

2652 REM TABULKA 

2654 REM*»*»**»»*»*»*»»»*»»»*»*» 

2656 PRINŢ' PREPINAC ROZSAHU" 

2658 PRINT62,1CHRS <15)"P" 

2668 M=2 s6OSUB2800 

2662 PRINT42,31CHR*< 15) 566 ,1CMR8<15)*S" 

2664 M =6 s GOSUB2808 

2666 PRINT&6,31CHR*C15)'N"j624,lCHR*C15>"K"SM=24:GOSUB2808 

2668 PRINT624,31CHR*<15)"J- 

2678 5=1J G0SUB28285 G0SUB2858 

2672 S=9 î 60SUB2828îGOSUB2850 

2674 S=20s GOSUB2820 5GOSUB2850 

2676 S«31:GOSUB2820 sG0SUB2858 

2678 PRINTi.4,2'Poloha'64,i2“Funkce"1.3,22'Rozsah'*,5,21"od do' 
2680 PRINTi. 8 ,2'1 az 5"47,ll"«ereni"4.9,ll"kapacity' 

2682 PRINT«.8,21'10pF 80MF' 

2684 PRINT613,2'6 az 9"*.12,lI“«ereni"414,ll"odporu" 

2686 PRINT613.21 "10hi* 30MC';614,29"-"} 

2688 PRINT418,2" 11 '417,1l"»ereni"419,11'teploty" 

2690 PRINT418,21'0—100st. C " 

2692 PRINT422,2' 12 "622,13'ze»'622,23CHR*(15)”00000" 

2698 RETURN 

2708 REM»»**»*»»**»»»»»»*»»»*»»* 

2702 REM TEXT 6 

2704 REM»»*»*»*»»»»**»**»*»*»*»» 
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2704 PRINT'Pri «ereni dane veliciny je nut-" 

2708 PRINT'ne zvolit rozsoh dle tabolky" 

2718 PRINT'a ridit se instrukceni. 

2712 PRINT'Kdyz presto nedojde k »ereni,po-" 

2714 PRINT'citac nereaguje na stisk tlacit-" 

2714 PRINT'ka, je chybu v pripevneni sou-“ 

2718 PRINT'castky nebo je soucastka vadna.* 

2728 PRINT'Pri «ereni velkych hodnot soucos' 

2722 PRINT'tek je pri nevhodnea rozsahu do-" 

2724 PRINT'ba «ereni delsi.Zoente rozsoh. 

2758 RETURN 

2808 REM»»*»»*»*»»»*»***»»»**»** 

2802 REM LINKA vodorovne 
2804 REM*»*»»*»**»*»**»»*»*»*»»» 

2808 FQRI=2TO30SPRINT4M,ICHRS C15)'0"s NEXT 
2810 RETURN 

2828 REM**»»»*»»»»»*****»»*»»*** 

2822 REM LINKA svisle 1 

2824 REM*»**»*»»******»*»»»»»*»* 

2828 F0RI=3T05sPRINT6I,SCHR4<15)"T'sNEXT 
2830 RETURN 

2858 REM************************ 

2852 REM LINKA svisle 2 

2854 REM************************ 

2858 F0RI=7T023spRINT4I,SCHR4(15>"T"sNEXT 
2848 RETURN 

2988 REN************************ 

2902 REN STKANKA 

2904 REM************************ 

2904 RA*24 sG8SUB3000sG0SUB2100:GQSUB2000:RETURN 
3000 REM*»*»»»»***»»»»**»**»**** 

3002 REM P00TRH 

3004 REN»*»»»»*»**************** 

3018 FORI»0TO30îPRINT4RA,ICHR*C15>"Q*îNEXTsRCTURN 
4888 REN»»»»*»*»**»»*********** 

4002 REN TISK VYSLEfctKU-OOPOR 1 

4004 REM»»*»*»*»«*»***«******** < 

4004 PRINT422,0"R='622,U'ohou'ţ 
4088 RETURN 

4100 REM»»»**»»»»»*»*»*******»* 

4182 REM TISK VYSLEDKU-0DP0R 2 
4104 REN»*»»*»***»**»*»**»»**** 

4104 PRINT422 r 0"R*"422,U'«egaoh«u"; 

4108 RETURN 

4208 REN»»»»»»»»»»*»»***»**»»** 

4202 REM TISK VYSLE0KU-KAPACITA1 
4204 REM»»»»»»*»»*»»»»*»»»»»»»* 

4204 PRINT422,0"C='422,ll'pikofarud"5 
4208 RETURN 

4300 REN»»»»»»»»»»»»»*»»**»»»»» 

4382 REN TISK VTSLE0KU-KAPACITA2 
4304 REN»»»»»»»» » »»»»»»»»»»»»»» 

4384 PRINT422,0"C=»'422,ll'«ikrafarad*î 
4308 RETURN 

588# REN»»»»»»»»»»»»»»»»»»« »»»» 

5882 REN HERENI 

5804 REN»»» «« » *» **«»»»»»»»«*»»» 

5005 REM HERENI 

5004 FORI»0TO20 

5008 QU )«0 

5010 NEXTI 

5012 FDRI-0TO20 

5014 OCD-UORDCHEX(40001,1) 

5014 NEXTI 
5050 0*0 
5855 FORI>1TO20 
5040 0=0+0 CI) 

5042 REN PRINTQjOCI) 

5045 NEXTI 

5070 Q=*FNZ <0,1) /20 

5080 RETURN 

4000 REN»*»»»»»*»»»»»»»»»**»»»* 

4005 REM ROZSAH 

4010 REN»**»»*»»*»»**»»»»»**»»* 

4015 FORI-0TO10 

4020 IFG CI) “<1008THEN4100 

4030 IFO(I)«>4S100THEN4208 

4840 NEXTI 

4850 RETURN 

4108 REN»***»*»*»»**«**»*«»»**» 

4105 REN Haly rozsoh 

4110 REN»»*»»»»**»*»»»»*»»****» 

4112 00SUB2400 
4114 IFV8»'1'THEN1418 

4118 IFV*-'2'THEN1526 , 

4200 REM***»»»*»*»*»»»»*»*»*»** 

4205 REM Vtlky rozsoh 

4210 REN*»»»»»»»*»»**»»*»*»»»»* 

4212 GOSUB2S00 

4214 IFW8-"1'THEN1418 

4218 IFV*«'2'THEN1526 

7008 REM»»»»»*»*»»*»»*»»**»»»»» 

7002 REN Kolibrace teploty 
7004 REN»»»*»*»»*»*»»»»*»»*»**» 

7020 8OSUB5000 
7022 R«=HEX CFFFF) ~Q 

7024 PRINT414,0’R*'R|l.l4,13'Prevod 0='0 
7050 RETURN 

7100 REM**»*»*»»*»»*»»*»******» 

7102 REM Kolibrace R 4 C 

7104 RA*=14 * GOSUB3000 

7104 PRINT'Kolibrace «ereni R 4 C 

7108 PRINT'Zvol i« k; rozsoh .4' 

7110 PRINT'Zkratoje»» svorky R' 

7112 PRINT~ 8 tiskne«e tlacitko o ti» je ka- libroce skoncena 

7114 RA»2538OSUB3000c GOSUB2000 

7130 BOSUBS000 

7132 Rl-HEXCFFFF)-0 

7134 R9»Rl/1995.3712tR9«FNZCR9,3) 

7134 PRINT427,0'Odpor prevodniku IT*'R9'kilooh»' » »WAIT C25) 
7138 RETURN 

8002 REN PP 8 M TEPLOTA ; 

8010 R08*'Rozsoh 0 az 14 st.C' 

8012 T“219.0097-19.931117*L08CRI>+.14 
8014 G0T011B4 

8028 R08»'Rozsah 14 az 30 st.C' 

B022 T-292.53204-24.759259*L0GCRI) 

8024 GOTO1184 













M3* RQ*='Rozsah 30 az 40 st.C' 

8032 ^251.96686-22.595167*1.06 <R1> 

8034 G0T01186 

8040 RO*="Rozsah 40 az 50 st.C" 

8042 T=282.75638-25.90703*LOG(R1> 

8044 G0TO1186 

8050 RO**'Rozsah 50 az 70 st.C" 

8052 T=310.19176-28.94891«L0G<R1> 

8054 G0T01186 

8060 ROS«"Rozsah 70 az 100 st.C" 

8042 T=330.28362-31.404993»LOG<R1) 

8064 G0T01186 
9999 END 

49990 REM*********************** 

49992 REH MAHRANX PROGRAMU 
49994 REHkhhhhkwhhhi* •*•***•**• 

49996 PRIMT624,0~ProsiM, zapni «agnetofon~&26,0"a stiskni nejake tlacitko.* 

49998 IFIHKEY«=*"THEH49998 

49999 PRINT628,0"Nahrava» !" 

50000 CALGHEX(6000) 

50002 PRINT624,0"Prosi», vţjpni Magnetofon a po 

50004 PRINTIi26 t 0"kracu3 voi bou z aenu. ~&28,9SPC(10); 

50006 GOSUB2000* CLStRUN180 


Vypis podprogramu „Măfenf Casovă prodtevy s 8253" 


(8253) lOI (viz tăi obr. 2), ktery 
obsahuje tfi nezâvisle pracujfcf sestup- 
nă Citate. K nămu pfibyl adresovy 
dekodăr 105, ktery vytvâri signâl CS 
pro vybăr Citate. Adresa je 74 ai 77H. 
Dva pouzită Citate Co a 02 pracuji 
nezâvisie v mtdu 0, s preruăenim na 
konci Cftâni. Vystup OUT Citate je po 
volbă mtdu na urovni L. Po vloieni 
novă predvolby OUT zustâvâ ve stejnă 
urovni a Citat zahâji Citâni po prichodu 
H na vstup GATE. Po doCitâni na nulu 
pfejde OUT na urovert H a zustane na 
ni, dokud registr Citate neni opăt 
predvolen. Vybăr Citate se provâdi 
adresovymi bity Al a AO (pfedvolba 
Citate CO — L, L: Ol — L, H: 02 — H, L). 
Pro zâpis ridiciho slova (CW) jsou tyto 
bity H, H. Tvar slova CW zaptsovanăho 
do registru CWR je nâsledujici: 
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zatazuji vSechia pferuâeni 

irticializuji ii tai . Qf - ildicl slovo do stiidaie 
a odtud do £(ta£e 

slabika fFH oteahu cîtaâ* do stFâdaie 
napineni niziiho bajtu 

* vyssîho bajtu il taie tfi 
adresa inicializmanAio MHO z reg.C do stdadade 
nahozeni MKO 1 

je UH3 1 jeste m haz an ? Jestliie ano, itu log / re D7. 

a vraci» se opit ie iteni 07, dokud nepfectu log 1 

pokud se neiftalo zmeu, tak budu ilst oboah ditai* 

jinak jdu na nulovâni rog.păru H,L 

etani niziiho bajtu Qff 

uklida» ho do registru L 

itenf vyiiiho bajtu C/( 

uklâdă» ho do registru H 

povoluji pderuieni 

a vraci» se z podprograMu do BAS 1Cu 
nuluji obsah reg. păru H,l, protoie raditar» hodnota je ehyb- 
na a vraci» se do BASICu 


Hodnoty R„ a C n v programu jsou 
postupnă upraveny. Nejpracnăjăf a Ca- 
sovt nejnâroCnăjăf je kalibrace termi- 
storu. Problăm je i v tom, ie se jeho 
—viastnosti mohou Casem zmănit. Pokud 
je k dispozici ultratermostat, ktery 
cejchovanou teplotu umoiftuje udriet 
dostateCnă dlouhou dobu, je vysledek 
kalibrace velmi dobry. Je tfeba dbât i 
na stejnou hloubku ponoru snimate a 
teplomăru. Nâhradou za ultratermostat 
muie byt nâdri s moănostf vytâpăni o 
objemu asi 51, do kteră vloiime menăi 
nâdobu se snimati. Rychlost ohfevu 
nebo chladnutl muşi byt dostateCnă 
malâ. 

Pfesnost măfeni 

Pfesnost măfeni je zâvislâ, jak jii 
bylo uvedeno, na velikosti pfevodu. Z 
tohoto duvodu je oăetrena programovă 
volba rozsahu. informaţi vnă plaţi, ie 
Casovă prodlevă 1 ms odpovidâ pfevod 
2048 jednotek (relativni chyba asi 
0,05 %). V praxi, pfi măfeni odporu v 
porovnâni s namăfenymi hodnotami 
Cislicovym multimetrem RFT G 
1001.500, to pfedstavuje chybu menăi 
nei 1 %. Pfi măfeni kapacit a odporu se 
porovnâvaly vysledky măfeni s pfistro- 
jem RLC10. Byly zjiătăny rozdily ai 
10 %. Jină măfidlo neni momentâlnă k 
dispozici. Pfi măfeni teploty zâvisi 
chyba na kvalită kalibrace a presnosti 
aproximace. Nemusi pfekroCit 0,1 °C. 
Lze vyuărt mală tepelnă kapacity per- 
liCkovăho termistoru (malâ setrvaC- 
nost) ke sledovâni ruznych fyzikâlnich 
dăju, napf. fâzovych pfemăn tuhnou- 
cich vosku apod. 

Zâv&r 

Măriei pfipravek byl postaven jako 
doplnăk digitizăru 2 pro dalăi vyuiiti 
jeho pfevodnfku DIGI2. Nâklady na 
jeho stavbu jsou asi 250 Kts. Mate- 


riâlovă nâklady na DIGI2 jsou asi 
700 Kts. Jednoduchâ konstrukce a 
dobrâ reprodukovatelnost vyroby 
umoitujf i amatârskou stavbu. Pod- 
mfnkou pouiiti je potftat IQ151 se 
standardnim vybavenim. Pfipravek mâ 
jednu polohu pfepinate neobsazenu, 
tak2e je moină pfipojit jeStă dalăi 
snimat odporovâho nebo kapacitniho 
typu. 
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Konstrukce, stavba a oiiveni 
pTevodniku DIGI2 pro IQ 151 


Konstrukce pTevodniku 

Konstrukce pfevodnfku DIGI2 je 
odvozena od pfedchoziho typu pfevod¬ 
nfku urCenăho pro jednoduchy digitizăr 
{3]. DIGI2 je stuCiteiny s mechanikou 
tohoto zafizeni. Jeho viastnosti jsou 
lepăi v porovnâni s pfedehozim typem 
v dosaienă reprodukovatelnosti a roz- 
liăovaci schopnosti. Ve spojeni s vy- 
lepăenou mechanikou vzniki Digitizăr 2, 
jehoi popis văak neni pfedmătem 
tohoto pfispăvku. Dâie budou popsâny 
pouze podstatnă zmăny, nebof popis 
pfedchoziho pfevodnfku byl uvefejnăn. 

Mişto programovăho CitaCe byl pou- 
iit programovatelny CftaC KR580VI53 


bit 

D7 06 

D5 04 

03 02 01 

DO 

vy- 

znam 

volba iitade 

Ctenf/zâpis 

volba mddu 

eftănf 

binărni 

deka- 

dickă 


V naăem pfipadă pro măd 0, blnârni 
Cftâni a zâpis/Cteni v pofadf niiăi bajt 
— vyăăi bajt, jsou tvary fidiefeh slov pro 
CftaC Co — 30H, Ci — 70H a C2 — B0H. 
Obsluha CitaCe je patrnâ i z vypisu 
programu ve strojovăm kddu. Adresa 
pro zâpis CW je 77H a pro Cteni/zâpis 
(IN/OUT) CitaCe C0 je 74H. Na vstup 
CLK jednotlivych CftaCu je pfiveden 
hodinovy kmitoCet 2048 kHz. Spouătăci 
impuls pro GATE je u CitaCe CO ziskân 
z vystupu 3 104, zapojenăho jako 
monostabilni klopny obvod (MKO). Je¬ 
ho vstup 2 je v klidovâ urovni H, coă 
zajiăfuje 1010b a rezistor R5. MKO je 
nastaven bitem DO programovă pfes 
102, ktery muşi byt âktivovân signâlem 
C§, vytvâfenym adresovym dekodărem 
106, je-li adresovân 78 ai 7BH. Smăr 
toku dat obousmărnâho oddălovaCe 
datovă sbărnice je fizen signâlem DC, 
ktery je vytvofen dvăma hradlv 108c , d, 
ve funkei logickâho souCinu H.IOR. Pfi 
Ctenf dat je DC = L. Druhy bit datovă 
sbărnice Dl je urCen tăi pro hlâăenl 
pfeteCenf CitaCe, kteră je signalizovâno 
urovni H vystupu OUT 0 v prubăhu 
Citâni. Tfeti bit D2 je zde ve vyznamu 
ukonCeni Casovă prodlevy, hlâăeni z vy¬ 
stupu MKO o urovni L je dâno pfes 
logicky souCet 1010a a 107a. Umoifiuje 
dalăi pokraCovâni programu bez zby- 
teCnăho Cekâni. 

V pfipadă, ie pfevodnik bude vy- 
uiît pouze k măficfmu pffpravku, lze 
vypustit 103, obvod pro oăetfeni 
mikrospfnaCe a logicky souCet 
101 Oa, c a I07a lze nahradit sledova- 
Cem ze dvou InvertorO. 

Velikost pfevodu DIGI2 je asi 29x 
vătăi nei pfedchoziho pfevodnfku. Pro- 
to doălo i ke zmenăenf kapacity Casova- 
cfho kondenzâtoru MKO. Relativni chy¬ 
ba pfevodu je asi 0,05%. Velikost 
pfevodu je umărnâ rozdflu hodnoty 
predvolby CitaCe (FFFFH = 65 535 a ob- 
sahu CitaCe po doCftânf. 

Stavba pTevodniku 

Protoie se v amatărskych podmfn- 
kâch pfedpoklâdâ jednorâzovâ kusovâ 
vyroba a vyroba oboustrannych desek 
ploănych spojO je obtiinâ, bylo pouiito 
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Vypis strojovâho kMu spojovacfho programu 
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technologie ovfjenych spoju drâtem se 
samopâjitelnou izofacf o prOmâru 
0,1 mm. Po rozmfstânf souââstek na 
desku (muie byt uJito univerzâlni des- 
ky, umoinf lepăf upevnăni soudâstek) 
z libovolnâho izoiaânfho materiâlu ne- 
podlâhajfciho tepelnâ degradaci o roz- 
mârech 135x92 mm se souââstky pro- 
poji pffmo pod le schâmatu. Ideâlnf 
k tomu uCelu je stavebnice Univerzal, 
kterou vyrâbf ZPA Novy Bor a do ăkol 
dodâvâ n. p. Komenium. Souââstf tâto 
stavebnice je ovfjftko. Pâjecf body tvoff 
zpravidla vyvody IO nebo jejich patic. 
Ovfjftkem vytvorfme v pâjecim bodâ 
dva ai tfi zâvity, drât utahujeme 
a pokrafiujeme k dalăfmu spojovanâmu 
bodu, kde po ovinutf drât pferuâfme 
pomocnym nâstrojem, ktery slouif i pro 
vedeni drâtu (drifme je] v levâ ruce). 
Păjenf je tfeba provâdât Cistâ s mini- 
mâlnă nutnym mnoistvfm pâjky a pff- 
mâfenym mnoistvfm tavidla. Spoje 
vedeme pffmo, peâlivâ a pozomâ, 
nesmf dojft k nekontrolovatetnâmu po- 
Skozenf izolace teptem pâjecfho hrotu. 
Spojenf pfevodnfku s mechanikou ne¬ 
bo mâficfm pffpravkem je provedeno 
ohebnym plochym vodiâem 8x0,3 nebo 
8x0,5, ktery je veden v drâice 
11x2,8 mm na spojovacf desce a na 
druhâ ştrand je zakonten konektorem 
WK 46240 se 12-ti vyvody. 

Oihrovânf pfevodnfku 

Pfed oiivovânfm se vyplati peâlivâ 
kontrola văech spoju. Je to obtfinâ, ale 
vyplati se to. Teprve potom pfipojfme 
desku ke zdroji. Vzorek byt oiivovân 
laboratornfm zdrojem BS525. Kontrolu- 
jeme zejmâna napâtf stabilizâtoru, kte- 
râ mâ byt asi 5 V. Odbâr pfevodnfku by 
măi byt okolo 250 mA (U,*). Aby 
nevznikty ubytky napâtf v napâjenf IO, 
je tfeba tyio spoje nâleiitâ zesflit 
(nâkolik prufezQ nebo pouilt tlustSI 
vodiC). Do vypnutâho poâftaâe zasune- 
me vynos, do nâho pfevodnfk (nezakry- 
tovany), zapneme poâftaâ a monitor 
a sledujeme jeho obrazovku. Pokud se 
objevf za pfftomnosti modulu BASIC 
6 a VIDE032 znâmâ Basic — raady, je 
vSe zatfm v pofâdku. Pokud se objevf 
smâsice znakO po celâ obrazovce, 
podftaC vypneme a odstranfme zkrat na 
adresovâ sbârnici. Pokradujeme na- 
hrânfm programu. Ten se sklâdâ ze tff 
Câstl a jeho nevyhodou je, ie je pffliă 
dlouhy. V tâto făzi potfebujeme pouze 
6âst z pfflohy 2 a k tomu pfidâme 
v BASICu podprogram „MâfenP* fâdek 
5000. Na fâdku 5062 zruăfme REM a na 
fâdek 5080 vloăfme mfsto RETURN 
napf. WAIT (50): GO TO 5000. Je uCelnâ 
si t tento krâtky program spotu 
s programem ve strojovâm k6du od 
adresy 4000 nahrât. Zajistfme se tak 
proti jeho ztrâtâ pfi zacyklenf poâftate. 
Pokud se po odstartovânf programu 
objevujf na obrazovce snfmanâ pfevo- 
dy (je pochopitelnâ nutnâ mft pfipojenu 
mechaniku nebo mâficf pffpravek 
— pozor na ăpatnâ pfipojeny nebo 
otoCeny konektor WK), je v§le v pofâd¬ 
ku. V pffpadâ, ie pfevodnfk pracuje 
Spatnâ, kontroluieme jednotlivâ sig- 
nâly, poâfnaje CS pro 101 a 102, 
spouâtâcf impuls pro MKO nebo GATE 
Cftaâe, stav OUT âftaâe a pod. Ke 
kontrole staCf Skolnf togickâ sonda 
BK 121. Po oiivenf zabudujeme desku 
do modulovâ krabiâky, kterou opatffme 
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Stftkem DIGI2 orientovanym stejnâ jako 
na ostatnfch modulech IO 151 (nesmf 
dojft k opaânâmu zasunutf do podfta- 
Ce). Nynf je moînâ vloiit do podftaCe 
cely program. Spojovacf £âst progra¬ 
mu (vlz vypis) slouif pro jeho na- 
hrâvânf. Obsahuje hlavitku programu 
a tepiy start BASICu. Program Ize cely 
nahrât stiskem “5“ programovâho ME- 
NU. Do poâftaâe se pak vklâdâ znâmym 
postupem pro nahrâvânf v monitoru. 

Pfevodnfk DIGI2 je souââstf stâle se 
rozâifujfcf stavebnice. Ve spojenf 


Integrovană obvody 


IO 1 

KR 580 VI53 (8253) 

10 2 

MH 3216 

IO 3.4 

E 555 (NE 555) 

10 5,6 

MH 7430 

IO 7. 8 

MH 7400 

IO 9, 10 

MH 7404 

IO 11 

MAA 723 

flB 2 istory TR 151 (161) 

R1, 2 

3.9 kn 

R3, 4 

3300 

R5, 6 

470 0 

R7, 8, 9 

3,9 kO 

R10 

12 0 

R11 

1,8 kQ 

R12 

6,8 kO 


s vyfepSenou mechanikou vznikne Digi- 
tizâr 2. Jeho programovâ vybavenf je 
dnes jli dost rozsâhlâ a rovnâi se 
neustâle rozăifuje, takie se nevyplatl 
program ruCnâ vklâdat z vypisu, ale 
nahrât jej pffmo na kazetu nebo diske- 
tu. To platf i pro mâficf pffpravek. 
Dokumentace a programovâ vybavenf 
je k dispozici na SPâ ve Varnsdorfu, 
kde vâm râdi pomohou radou i skut- 
kem, ovăem pochopitelnâ v râmei ko- 
neânych Casovych moinosti. 


R13 1,2 kO 

PI, 2 0,1 Mft/N TP 280 

Kondenzâtory 

CI TE 007 100 |iF/15 V 

C2 TK 747 100 nF 

C3 TK 747 100 pF 

04, 5 TC 215 220 nF (MPT — Pr 96, 

TGL 55163 

Ostatnf soudâstky 


Objlmka DIL 14 6ks 

Objlmka 0)L 16 2ks 

Objlmka DIL 24 1 ks 

Konektor FRBTY 517 20 11 1 ks 

Konektor WK 462 40 1 ks 

Konektor WK 465 40 1 ks 


a 



Soudâstky pouiitâ pro stavfou pfe v odnf k u 








tng. Jaroslav Svehla, voronuak* nâm. z, ezsoo Bmo 


K uchovânf vătăfho mnoistvf dat rfitndw charakteru byl vytvofen relaâni interaktivni databâzovy systâm 
— BIOS — pro mikropoâftaâe fady M2-700 a MZ-800 <v m6du MZ-700). Tento systâm umoiftuje interaktivni 
formou definovat, modifikovat a zpracovâvat data dvou typâ v tabuikovâ formă. 

Databăze je ocgamzovâna ve formă tabulek pojmenovanych vtastnim jmănem. ftâdky tabulky pfedstavuji 
jednotUvâ zâznamy databăze, fote kaldy zâznam mă voHtelnf poăet poloiek (skMipcâ) libovofnătio jmăna 
a formă tu. 


PMdmt 

Jmâno databăze: UD£ 


1 

2 

3 

Di 

jmEno 

PftfJMENi 

TELEFON 

vEk 

Jana 

Krâtkâ 

3227 

20 

Ivoă 

Pech 

4138 

17 

Oto 

Mann 

2256 

31 


Pffklad ukazuje organizaci databăze 
LiDfi, kterâ obsahuje tfi nezâvisiâ zâ¬ 
znamy o Ctyfech poloikâch (JMâNO, 
PfifJMENf, TELEFON, VEK). 

format dat 

Databăze roziiâuje dva formâty dat: 

fbrmăt 1... numerickă data (real nebo 
integer), 

formăt 2... textovâ data (fetâzce iibo- 
voinych znaku văetnă Ceskâ abecedy). 

Obsah poloiky je nulovy, jestiiie 
= 0 (formăt 1) anebo = (formăt 2). 


STRUKTURA DAT 

Vzhledem k tomu, ie program byl 
vytvâfen pro zăkladnl konfiguraci mik- 
ropoăftaCe, bez vnăjăfch periferii pouze 
s magnetofonem, byla jedinâ struktura, 
dostupnă pro uchovâni dat v pamăti, 
pole. Tato skuteănost zpusobuje vyraz- 
nâ degradovănf databăze v oblasti jejl 
varlabitity a rozsahu. 

Pro fyzickă uchovănl dat bylo vyulito 
dvou poli, kterâ uchovăVaji jak informa- 
ce o struktufe databăze, tak vlastni 
data, kteră tvofl jejl obsah. 


Pole obsahuje informace o jmânech 
databăze a văech poloiek, kterych 
muie byt libovolny poăet X. Dăle 
obsahuje obsahy văech poloiek for- 
mătu 2, pro vSechny zâznamy v tako- 
vâm pofadf, v jakâm jsou v databăzi 
uvedeny (tj. zleva doprava a shora dolu 
— viz pffklad). 

B. Pole TF(N) 


STRUKTURA PROGRAMU 

I kdyi jazyk BASIC nenf optimăinf pro 
strukturovanâ programovănf, pfi tvorbă 
programu bylo pfihliieno k tomu, aby 
program byl co nejtitelnăjăf a nejsrozu- 
mitelnâjăi. Proto je ceiy program dâien 
do programovych celku, kterâ zaăfnajf 
na fădcfch XXOOO a konfif na fădcich 
XX990. Tyto programovâ celky maji 
charakter podprogramu, kterâ vyko- 
năvaji pffsluănâ akce danâho pffkazu 
a jsou volâny rozskokovou tabulkou na 
zaăătku programu. 


Od Cfsla fâdku 30000 jsou uloieny 
năkterâ podprogramy spoleănâ pro 
ăinnost programu (definice obrazovky, 
oăetfenf chyb, definice ăeskâ abecedy, 
servisnf modul apod.). 

Cinnost programu a umfstănf pff- 
sluSnych podprogramu jsou zfejmâ 
z grafickych schâmat. 


A. Pole ADFB(N) 


0 

1 

2 


X 

X-t-1 

X+2 


N 

jmăno 

databăze 

jmăno 1. 
poloăky 

jmăno 2. 
poloăky 

... 

jmăno X. 
poloăky 

data 

data 

... 

data 


UKAZATEL ZAZNAMU 

Ve struktufe databăze je obsaien 
ukazatel, ktery ukazuje na jeden ze 
zâznamu databăze. Tento zâznam se 
nazyvâ „băiny zâznam" a je to 
zâznam, se kterym se momentâlnâ 
pracuje a na kterâm (resp. od kterâho) 
se budou provâdăt pffkazy. 

Obsah tohoto ukazatele se mâni 
bucT v souladu s vysledkem urăitâho 
pffkazu anebo jej muie uiivatei zmânit 
pffmo. 

VtBtR ZÂZNAMO 

Databăze umoiftuje vybâr libovotnâ 
podmnoiiny zâznamu (pffkazy O, A, 
H — viz „PftlKAZY"), podie zvolenych 
kritârif, nad kterymi se budou provădât 
pffkazy D, P, X (viz „PftfKAZY"). Tyto 
vybranâ zâznamy se nazyvajl „aktivni 
zâznamy". 

IMPLEMENTACE 

Uvedeny interaktivni databâzovy sy- 
stâm byl realizovân na poăftaâi SHARP 
MZ-821 (v modu MZ-700) ve dvou 
modifikacfch: 

a) v jazyku S-BASIC (MZ-1Z013) 
— interpret; 

b) ve strojovâm kâdu, jako produkt 
kompilătoru S-BASIC COMP. 

Pro lep§f năzomost uvădfm modifi- 
kaci v S-BASJCu. Uiivatei mă moinost 
po nahrazeof konstrukcf IF ERROR 
GOTO a RESUME za BREAK ON 
a BREAK OFF a jin^m postupem 
definice Seskâ abecedy (viz. f. 12—13) 
uvedenou verzi zkompilovat. 


0 

1 

2 

3 

4 


X+2 

X+3 


N 

poCet 

zâzna- 

«nfl 

poăet po- 
kjăek v 1 
zăznamu 

poăet po- 
iotok for¬ 
mâtu 2 

formăt 

1* pol. 

formăt 

2. pol 

... 

formăt 

X. pol. 

data 

... 

data 


Pole obsahuje informace o struktufe 
databăze (velikost a formâty) a obsahy 
văech poloiek formâtu 1. 

Pffktad uloienf databăze v polfch: 


JU(NO 

PftJMENf 

TELEFON 

Jana 

hm» 

Krâtkâ 

Pech 

3227 

4138 


OBSLUHA PROGRAMU R1DS 

Program pracuje v interaktivnfm reii- 
mu a tudfl i nezauăeny uiivatei je 
schopen ho ovlâdat 


Obrazovka je rozdâiena do dvou 
ăăstf: 


Uioieni: 



0 

i 

2 

3 

4 

5 

6 

7 

ADFţ 

uofi 

JME¬ 

NO 

PAU- 

iieyl 

TELE¬ 

FON 

Jana 

Krâtkâ 

hm» 

Pech 


homf fiâst — informaăni, 
doini ăăst — konverzaănf. 



0 

1 

2 

3 

4 

5 

6 

7 

TF 

2 

3 

2 

2 

2 

1 

3227 

4138 


Dimenze obou polf mă uiivatei 
moinost upravovat na fâdku 20 podie 
toho, jaky charakter budou mft uklăda- 
nâ data. Musf mit ovăem stâie na 
pamăti, le: 
pro ADF$(n)... n>X 
pro TF (n)... n>X+2 
Jestiiie tedy bude mft potolky pouze 
formâtu 1, potom muie pole ADF$ 
zkrâtit na ukor pole TF a naopak. 
POZOR, pfi pouliti pffkazu Z je tfeba 
mft na zfeteii, jakou strukturu bude mft 
databăze zavâdânâ zmagnetofonu. 


V informa&nf ăâsti jsou vypisovâny 
vysledky provâdânych pffkazu a sy- 
stâmovâ hlăăenf. V konverzaănf dăsti 
probfhâ veăkerâ konverzaoe mezi sy- 
stâmem a uiivatefem. 

Po zavedenf S-BASICu a zdrojovâho 
programu RIDS do pamăti a po jeho 
spuătăni se objevi na obrazovce uvodnf 
hlăăenf, ve kterâm je uiivatei tâzân, ala 
si pfeje definovat ăeskou abecedu. 
Jestiiie ano, pak z CMT bude naăten 
a proveden soubor ve strojovâm kâdu 
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„CESKY PCG“. Jestliie ne, pak tento 
soubor nenf potrebny k Cinnosti data- 
bâze. Po stisknutî pffkazu ? je uiivatel 
informovân o vSeeh jemu dostupnych 
pffkazech. 

Poznâmka: Prvmm prikazem muşi byt 
vidy G nebo Z (viz dâte), jinak systâm 
reaguje chybovym hlâăenim. Po prika- 
zu G nebo Z se doporu5uje specifikovat 
formât tisku pfîkazem Y, protoie impii- 
citnl nastaveni tisku je omezeno pouze 
na tisk 1. poloiky bez uvedenî jmen. 

PftfKAZY 

V konverzaCnf Câsti obrazovky Sy¬ 
stem indikuje pHznakem stav, kdy 
oCekâvâ jednopîsmenovy k6d prikazu. 
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[300] 
[290-2951 
[24000-24990] 
123000 - 23990] 
122000 - 229901 
[21000 - 219901 
[20000 - 209901 
[190)0-19990] 
(18000-18990) 
[17000-17990] 
116000-16990] 
[15000-15990) 
[14000-14990] 
[13000-13990] 
[12000 -129901 
111000 - 11990) 
110000 -10995] 
[9000-9990] 
l 8000 - 8990] 
[7000 - 7990] 
[6000 - 6990] 
[5000 - 5990] 
[4000 - 4990] 
[3000 - 3990] 

[ 2000 - 29901 


[1000-19901 
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Z tisk uvodni / 
obrazovky/ 




/ tisk vsech / + 

—f pr ikozu A* * 



•w 


' t isk jmena.y 
’ DB.poctu 
poctu pol 
^bezny zâzr 
poctu ak- 
' tivni'ch zâ- 
znamu 


/° >k Ţ / 


pfesun u_ko - 
zatele vpfed 

/bezn zozn / 


/cti potozku / 
/a jeji obsah/ 

JET 


vyhledej 

zâznom 


/tisk noteze-/ 
/ne polozky / 


fi ti 7 

/ oolozku /*" 

“XI 

/TîsvT 7 

/ polozky / 


/cti 7 

/ kQllk / 


zrus 

zâznamy 


/ tisk noveho 7 
bezn zozn / 


© 


6 


/tisk potr / 
yAOFS.TF, IP r 


/tisk jmen. / 

W cisel c L— 

/ formatu / 

/ polozek / 


7 

*7 o kolik / 


pfesun uka- 
zatete vzod 


/tisk noveho / 
/bezn. zozn / 







/cti 7 

^novy obsah / 


uloz 

novy obsah 


(50000 - 50990 ] 



proved' 



prikaz '£’ 


/ cti 7 

/novy obsah # 


uloz 

novy obsah 


7 dtl 7 

y novy zazn [ 


atp/ ho pred 
bezny a ucsn 


0 


0 







Pro nâkterâ prîkazy viz Implementadnl 
omezeni. 

A. PFIkazy pro databâzi 

? — dostupnâ pflkazy. 

VypISe văechny dostupnâ pflkazy 
a jejich vyznam. 

G — vytvofenl struktury databâze. 
Definuje se jmâno databâze (tabulky), 


podeţ poioiek zâznamu (=podet sloup- 
cQ tabulky), jmâna poioiek a formâty 
dat obsaienych v poloikâch. Strukturu 
databâze Ize pozdâji prostfednictvfm 
jinych pffkazO modifikovat. 

K — zruâenf databâze. 

ZruSI nejenom obsah databâze, ale i jejt 
strukturu. 

Z — zaveden( databâze. 

Zavede dffve vytvofenou databâzi 


<Qb - V—. 

J cti novy / 

7 zâznam / 

/“A <£> 

pftpoj novy 
zazn na ko¬ 
nec D8 a ok,f\ 
ho beznvm 

# -Ţ 

v.... 

rozepis 

zâznamy ^ 

JiU pFedeh j 

Tpol, jmeno al 
/torm nove p / 

16ti polozku/ + 

/ a nove H’ N / 

/ jroeno / 

vytvor novou 
pol. a napi A ji 
nulovou hodn. 

proved’ 

pfejmenovâni 

1_ 

t»\ -7 

1 rusenaj # 
f poiozku / 

=5Ei 

zrus polozku 
ve vsech 
zâznamech 


uloz 08 
bez hesla 


uloz OB 
pod heslem 


/ defmuj 
I strukturu 
r dolabaze 


vytvof oovou 
databazi 


ţH\ pot.jeji 
/obsah a podi 


provecf 
pfikaz ‘R' 






I tisk 
r ctyboveho 
hlâsenf 


zaved" 08 J f iv ^ lo 

do pamerti I / 


» heslo ^ 
”souhlasi. 


Iprevod vsech 
Izam. do rmoz 


■tisk poSlu z, 
iouctu.prum J 
si odctiyl. / 


proved' 
prfkaz - R" 


/cti pol, jeji . 
i obsch a podj 
/minky vyben# 


prove <f 
prfkaz *R* 


/ cti druh 
»tisku a kte - 

fre polozky 


# tisk 
F chyboveho 
htaseni 


z CMT do pamSti (obdoba Load). Je-li 
soubor s databâzf chrânân heslem, pak 
uiivatei musf toto heslo spedfikovat 
U — uloienl databâze. 

Stâvajlcf databâze se uloil na CMT 
(obdoba Save). Existuje moinost 
chrânit uklâdanou databâzi heslem. 

R — stav databâze. 
ftozepiâe stâvajicl strukturu databâze 
(jmâno, podeţ zâznamu, podeţ poioiek, 
bâiny zâznam a podeţ aktivnich 

) zâznamu). 

Q — konec dinnosti. 

Ukondl dinnost FUOS, pouifvâ 
se po pfedchozfm pouiitl 
pffkazu U. 

B. Pflkazy pro zâznamy 

I — vloienl zâznamu. 

Vsune novy zâznam pfed bâiny 
a novy zâznam udînf bâinym. 

B — pfidânf zâznamu. 

PFidâ novy zâznam na konec 
databâze a udinl ho bâinym. 
Oii — zruSenl zâznamu. 

Zru§( n zâznamâ podfnaje 
bâinym (vdetnâ) a bâinym udi¬ 
nl nâsledujfcf nezruăeny zâ¬ 
znam. Je-li podeţ ruSenych zâ¬ 
znamu vâtSI nei podeţ zâznamu 
od bâinâho do konce data¬ 
bâze, pak se zruăf pouze zâzna¬ 
my od bâinâho do konce data¬ 
bâze a bâinym se stâvâ zâ¬ 
znam pfed prvnlm zruâenym. 
POZOR, ruSf se pouze aktivnl 
zâznamy! 

+»» — pfesun ukazatele 

bâinâho zâznamu dopFedu. 
Udinl bâinym ten zâznam, ktery 
mâ poFadovâ dfslo o n vâtâf, 
nei stâvajfd bâiny zâznam. 
Dosâhne-li se konce databâze, 
stâvâ se bâinym poslednl zâ¬ 
znam. 

-n — pfesun ukazatele 
bâinâho zâznamu dozadu. 
Udinl bâinym ten zâznam, ktery 
mâ poFadovâ dlslo o n menăl, 
nei stâvajicl bâiny zâznam. 
Dosâhne-li se zadâtku data- 
bâze, stâvâ se bâinym prvnl 
—*(4)zâznam. 

— vypis zâznamâ. 

Funguje stejnd jako pflkaz 
D s tfm rozdllem, ie neruăf zâ¬ 
znamy, ale vypisuje je na obra- 
zovku ve formâtu zvolenâm 
pFfkazem Y. Tisk se pozastavu- 
je po kaidâm stisknutl mezer- 
nfku, dalâlm stiskem mezernlku 
Ize pokradovat. ZruSenl tisku se 
provede klâvesou Q 
H — inicializace mnoiiny aktiv- 
nich zâznamâ. 

PFevâdl văechny zâznamy do 
mnoiiny aktivnich zâznamâ. 

A — operace AND. 

V mnoiinâ aktivnich zâznamâ 
ponechâ pouze ty zâznamy, 
jei splftujl zadanou podmln- 
ku. 

O — operace OR. 

Do mnoiiny aktivnich zâznamâ 
pFidâ ty neaktivnl, kterâ splftujl 
zadanou podmlnku. 

Y — selekce tisku. 

Specifikuje formât tisku. PO¬ 
ZOR, pfi tisku do Fâdku Ize tisk- 
nout pouze 3 poloiky (vzhie- 
dem k omezenâ SIFce obrazov- 
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ky) v libovolnâm pofadf, a to s ma*i- 
mâlnf dâlkou fetâzce 10 znakfl (delSf 
retfeec je zprava zkrâcen — formât 2). 

C. Pfikazy pro poloiky 

C — poloiky databâze 

afomâW.° POloa<âch <iSlsla - J"*« 
M — pridânf poloiky. 

Pridâ noyou poloiku do struktury data- 

b f*f- 0bsah , t6t0 P D, oiky je v kaidâm 
zâznamu nulovy (viz Formât dat) 

™ — zmâna jmâna. 

n i- J . m6no specifikovanâ poloiky 
Je-li âislo specifikovanâ poloiky = 0 
pak zmâm jmâno databâze Y 
F — zruăenf poloiky. 

ZruSf libovolnou poloiku databâze. 

L nalezenf poloiky. 

Nalezne prvnf zâznam s poloikou iei» 
£ , 5.? uiivatel. Bâinym zâina- 
S nalezen y zâznam anebo 

25l^âM^i n ' ena i de ‘“ se >* Mledânf 
fo i. Za h^Py 171 zâznamem, pokraâu- 
je do konce databâze a dâle pokraâute 

znamu^ 0 databâze do b^nâho zâ 
S — vyhledânf a zmâna. 

Provâdl totâi co pffkaz L, s nâslednou 
zmânou obsahu poloiky nas,eanou 
E — zobrazenf poloiky. 

VypISe obsah libovolnâ poloiky bâinâ- 
ho zâznamu. 
v — zobrazenî a zmâna. 

Provâdl totâi co pffkaz E, s nâslednou 
zmânou obsahu poloiky. 

X — statistika. 

P rp, ve pe vypoâet statistickych udajO na 
zakladâ obsahu poloiky. POZOR vy- , 
âislovanâ poloika mus! byt formâtu 1» 
Vypoâtenâ udaje jsou: t 

*"* podeţ zâznamu (aktivnfch); 
soudet; 
prOmăr; 

standardnf odchylka. 1 

POZOR, vyâlsluje pouze aktivni zâzna- * 
my! * 

i 

CHYBOVÂ HLÂSENf \ 

3 

** CHYBNY VSTUP ! *** 3 

Indikuje chybu pfi operaci INPUT: 5 

— formât 2 mişto formâtu 1: POZOR 5 

ne naopak! ’ 5 

— chybnâ âislo poloiky; t 

— poloika formâtu 2 u pflkazu X; 

nenumerickâ specifikace poloiky o* 
nebo formâtu; 7 < 

~ formât poloiky = 1 nebo 2 a 

9< 

*** PRÂZDNÂ DATABÂZE ! *** < 

Pokus o provedenf prlkazu nad data- ^ 
bâzi s nulovym poâtem zâznamu. H 

*** DATABÂZE NEVYTVOftENA ! *** H 

Neproveden prvotnl pffkaz G nebo Z. 15 

*** KAPACITA PAEKROCENA ! *** 17 

Dală! zâznam do databâze nenf moiny 18 
z duvodu pfekroâenl kapacity pamâti. 19 
Pouiito u prlkazu I, B, M 201 

21 ' 

*** ZRUSTE DATABÂZI! “* 

U prlkazu F, kdyi uiivatel ruSI poslednl 24 ( 
poloiku databâze. ^ 

IMPLEMENTACNf OMEZENi 27< 

„ 28 < 

a) Pfi zadâvânl parametru pro pfikaiy 
se poloika vidy specifikuje svym Cfs- jk 


»em a ne jmânem (Ize zjistit pffkazem 
C)» 

b) formât poloiky se vidy specifikuie 
svym âisiem: 

1.. . numerickâ data; 

2.. . textovâ data. 

c) nepouilvejte 

shiftI + [break, 

doâlo by ke zhroucenf systâmu. 

Ceskâ abeceda 

RIDS umoirtuje pouifvat velkâ i malâ 
plsmena a takâ hââky a âârky pomocl 
klâvesy 


295 IF (OPx=*K")#(LEFTx(Ix,i)<>»ft*) THEN 

Dv 

300 GOSUB 34000:CURSOR 5,6=PRINT CSx : C0T 

U Ju 

310 OK=©:GQTO 56 

1000 REN *** ?...HBP *** 

1065 G0SUB 34066 

1010 PRINŢ "PRIKAZ VY2N6M» 

1020 PRINŢ *- _______ 

1046 PRINŢ " ?.INFORHACE 0 PRIKAZEC 

1050 PRINŢ - R.STAV DATABAZE" 

Sîîîl l C .P0L0ZKY DATABAZE" 

1070 PRINŢ +tN3. .POSUV UKAZATELE VPRE 

108© PRINŢ “ -EN3...POSUV UKAZATELE VZAD 


Napflklad, napsânl slova UCENl se 
provede touto posloupnostl 

Proţoie plsmena E a U mohou mit ai 
tfi varianty, je jejich pfifazenl toto: 

El =IGRAPH] + H3 (Q]= (GRAPHU [g 

dl = }graph 1 +jw| ii = 1 graphI +[u] 

C v yp» s programu RIPS ") 
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16 REN *** rids m 

11 CLS:CURSOR 16/6:PRINŢ “RID S"-CURS0 
R 14/ 7: PRINŢ "JSSt0-1987" 

12 CURSOR 1,12:INPUT "DEFINOVAT CESKOU A 
BECEDU ? (A/N) > “ iOPK^x^TKtOPx^) 

13 IF 0Px=“A" THEN PRINŢ:PRINŢ “JE NUTNY 
SOUBOR NA CHT: >CESKY PCG< !":CURS0R 15 

™ PRIMT PLAY-:LIHIT mFOOO- 

LOAD “CESKY PCG“.USR(xFOOO):LIMIT MAX PO 
KE X6BCF,X3B/Xl 

14 ON ERROR GOTO 39000 

15 COLOR ,,7,0 

20 ADF=560 ; NTF=500 ; NZD=200 

25 DIN ADFx(ADF),TF(NTF),IP(N2D),TS(6) 

30 CLS:OK=-1:AZ=0 
35 GOSUB 33OO0 
50 GOSUB 35000 
53 NUSIC “A0.5- 
55 PRINŢ “ *■; 

60 GET 0Px : IF 0Px=““ ŢHEN 
62 PRINŢ OPx 

65 IF 0Px=-W- THEN GOSUB 34006.GOSUB 500 
00;GOTO 50 

70 IF OPx—“Q“ THEN CONSOLE. aS END 
80 IF 0Px=-?“ THEN GOSUB 1060:GOTO 50 

90IF (OPx<>“G-)*(OPxO“Z*)*(OK=-l) THEN 

GO^JB 34000:CURSOR 5,5: PRINŢ "Ht DATAB 
AZE NEVYTVORENA < «♦“ : GOTO 50 
;«* IZ 0P*=“R" THEN GOSUB 2000:G0T0 310 
120 IF 0Px=“C“ THEN GOSUB 3000=GOTO 310 
130 IF 0Px=“+“ THEN GOSUB 4060.GOTO 310 
It 0Px= "~" T * N GOSUB 5000:GOTO 310 
150 IF 0Px=“L- THEN GOSUB 6000:GOTO 310 
166 IF 0Px=“S“ THEN GOSUB 7660:GOTO 310 
^ GOSUB 8060: GOTO 310 
180 IF 0Px=*V" THEN COSI© 9000=GOTO 310 
196 IF 0Px=“D“ THEN GOSUB 1O060:GOTO 31© 
200 IF 0Px="I■ THEN GOSUB 11000.GOTO 310 
210 IF 0Px=*B" 1>CN GOSIB 12006:GOTO 310 
220 IF 0Px=“P" THEN GOSU8 13000:GOTO 310 
-30 IF 0Px=“M“ THEN GOSUB 14000:GOTO 310 
240 IF 0Px=“N“ THEN GOSUB 15600=GOTO 310 
25© IF 0Px=“F“ THEN GOSUB 16000:GOTO 310 
260 IF 0Px="U" THEN GOSUB 17000=GOTO 310 
-70 IF 0Px=“Z“ TEEN GOSUB 18000=GOTO 310 

280 IF 0Px=“G“ THEN GOSUB 19600 = GOTO 316 

281 IF 0Px=“H“ THEN GOSUB 20660=GOTO 310 

282 IF 0Px=“A“ THEN GOSUB 21006=GOTO 31 © 

^ THEN GOSUB 22060 = GOTO 310 

284 IF 0Px=“ X - THEN GOSUB 23666.GOTO 316 

285 IF 0PX=“Y« THEN GOSUB 24606=GOTO 310 
296 IF 0Px*-K- THEN PRINŢ=INPUT - POTVRD 
TE! <A/N) > -,Ix=if LEFTx(Ix,1)=-a- THEN 

30 


“ L.NALEZENI ZAZNAMU" 

1106 PRINŢ " S.JAKO L SE ZNENOU* 

1110.^PRINŢ - E.ZOBRAZENÎ OKAHU POL 

1120 PRINŢ - V.JAKO . E SE ZNENOU" 

e 1130 PRINŢ - DINI.. ZRUSENI ZAZNAMU* 

1 BEZNY- INT " 1 .VLOZENI ZAZNAMU PRED 

1156 PRINŢ - B PRIDANI ZAZNAMU NA K 

UWfcC 

1166 PRINŢ " PIN3.. ROZEPSANI ZAZNAMU* 
1162 CURSOR 2,20 
* 1163 CONSOLE 18,6,2,36 

1164 INPUT "DALSI PRIKAZY? (A/N) >";0px 
1166 IF LEFTx(0Px,1)<>“A" THEN 199© 

I 1167 GOSte 34060 

1168 PRINŢ “PRIKAZ VYZNAN- 

1169 PRINŢ --- . - 

3 1170 PRINT " «.PRIDANI POLOZKY" 

1180 PRINŢ * N.PREJNENOVANI POLOZKY 

II 

119© PRINŢ “ F....- 2RUSENI POLOZKY" 

( ^ PRINT * U ULOZENI DATABAZE NA 

1210 PRINŢ " Z.ZAVEDENI DATABAZE Z 

UtT 

S I G .VYTVORENI DATABAZE" 

1230 PRINT * K.ZRUSENI DATABAZF" 

3* ™,'"i: *. 

^-^ INT A .AKTIVIZACE - OPERACI 

bmu 

" 0 .AKTIVIZACE - OPERACI 

Sîîîî - 5.STATISTIKA DAT" 

1286 PRINT " Y.SELEKCE TISKU" 

1296 PRINT « Q.KONEC PRACE S DATABA 

1990 RETURN 

2606 WEM *** R. STAV DATABAZE *** 

2005 GOSUB 34000 

2010 PRINT "DATABAZE = ",ADFx<0) 

202© PRINT "ZAZNAMU =";TF<0) 

2630 PRINT "POLOZEK ="iTF(l) 

2046 PRINT 

2050 PRINT "BEZNY ZAZNAM ";A2 " “ 

2060 PRINT “- .... _ ' 

2670 P0C=0 

2075 IF TF(0)=0 THEN 2116 
2080 FOR 1=1 TO TF(0) 

2090 IF IP(I)=0 THEN P0C=P0C+1 
2100 NEXT I 

2116 PRINT "AKTIVNICH ZAZNAMU =";P0C 
2996 RETURN 

3600 REM *** C.. .POLOZKY *** 

3605 GOSUB 34006 
301© FOR I=î TO TF(1) 

3030 NEXT I 
3990 RETURN 

4O0© REM *** +.. .POSUV VPRED *** 

4005 IF TF(0)=0 ŢKEN GOTO 36000 
4616 IMHJT "0 KOLIK >";KCLIK 

<KOLIK<0) + CKOLIKOINT(KOLIK)) TH 
EN GOSte 37000=GOTO 4610 
4026 AZ=AZ+KOLIK 
4030 IF AZ>TF(0) T)£N AZ=TF(0) 

4990 K0LIK=1 = GOTO 13020 

5060 REM *** -...POSUV VZAD m 

5065 IF TF(0)=0 THEN GOTO 36600 

5010 INPUT "0 KOLIK >";K0LIK 

5615 IF (KOLIK<0)+(KOLIKOINT<KOLIK)) TH 

EN G0SU8 37000=GOTO 5016 

5026 AZ=AZ-KOLIK 

5030 IF AZ<1 TFEN AZ=1 

5990 GOTO 4990 

6006 REM *** L...VYHLEDANI ZAZNAMU *** 

6005 IF TF(0T=0 THEN GOTO 36060 
6016 INPUT "POLOZKA >",SL 

























6©20 IF <SL>TF(1) )+<SL<l)+(SLOINT(SL)) 

TFEN GOSUB 37000:GOTO 6G10 

6030 IF ABS(TF(SL+2))=1 THEN IMPUT "OBSA 

H >“;PR:GOTO 6040 

6035 imn “OBSAH >";PRx 

6040 PP=0:KOLIK=0 

6045 IF SL=1 THEN 6075 

605O FOR 1=1 TO SL-1 

606O IF ABS(TF(1+2))=2 THEN PP=PP+1 

6070 NEXT I 

6075 P0C=PP 

608O IF ABS(TF(SL+2))=1 TFEN 6200 
6090 PP=PP+TF(1)+1+AZ+TF(2) 

610O IF TF(0XAZ+1 THEN 6140 
6105 FOR I=AZ+1 TO TF<6> 

6110 IF ADFx(PP)=PRx THEN AZ=I : GOTO 4990 
6120 PP=PP+TF<2) 

6130 NEXT I 

6140 PP=POC+TF(1)+1 

6145 IF AZ<1 TFEN 6190 

AlSA PAP T=1 TA 

6160 IF ADF*(PP)=PRx THEN A2=I GOTO 4990 
6170 PP=PP+TF(2) 

6180 NEXT I 
6190 GOTO 6990 

6200 PP=2+TF(1)+AZ*(TF(1)-TF(2))+SL-POC 
6210 IF TF(0XA2+1 THEN 6250 
6215 FOR I=AZ+i TO TF<0) 

6220 IF TF(PP)=PR THEN AZ=I:G0T0 4990 
6230 PP=PP+TF(1)-TF(2) 

6240.NEXT I 

6250 PP=2+TF 11)+SL-POC 
6255 IF AZ<1 THEN 6990 
6260 FOR 1=1 TO A2 

6270 IF TF(PP)=PR THEN AZ=I GOTO 4990 
6280 PP=PP+TF(1)-TF(2) 

6290 fCXT 'I 
6990 RETURN 

70O0 REM *** S.. VYHLEDANI A ZMENA *** 

7005 IF TF<6>=0 THEN GOTO 36000 

7010 GOSUB 6000 

7015 IF KOLIK=© THEN 7990 

7017 CURSOR 2,22 

7019 CONSOLE 18.6,2,36 

7020 IF ABS(TF(SL+2))=1 THEN INPUT “NOVY 
OBSAH >";TF((AZ-i)«(TF(l)-TF<2))+SL+TF( 

1)+2-P0C);GOTO 7990 

7O30 INPUT “NOVY OBSAH >" ,ADFx( <A2-1)»TF 
~T2)+P0C+1+TF<1>) 

7990 RETURN 

8000 REN *** E.. Z0BRA2ENI POLOZKY *** 
8O05 IF TF(0)=8 THEN GOTO 36000 
8010 INPUT "CISLO POLOZKY >";SL 
8015 IF (SL>TF(l))+<SL<l>+<SLOINT<Sp) 
THEN GOSUB 37600 GOTO 8010 
8020 POC=0 

8625 IF SL=1 THEN 8055 

803O FOR 1=1 TO SL-1 

8640 IF ABS(TFU+2)>=2 THBI P0C=P0C+1 

8056 NEXT I 

8055 GOSUB 34000 

8660 IF ABS<TF(SL+2))=1 THEN PRINŢ "OBSA 
H =“;TF((AZ-l)*{TF(l)-TF<2))+SL+TF<l)+2- 
POC):GOTO 8990 

8070 PRINŢ “OBSAH = “,ADF*((AZ-1)*TF<2>+ 
POC+TF <1)+1) 

899© RETURN 

900G REN *** V.. ZOBRAZENI A ZMENA «* 
9005 IF TF(0)=0 THEN GOTO 36000 
9010 GOSUB 8O00 
9996 GOTO 7017 

10006 REN *** D.. RUSENI ZAZNAMU *** 

1O005 IF TF(0)=0 THEN 36606 

10010 INPUT "KOLIK >”;KOLIK 

10015 IF (KOLIK<0)+(KOLIKOINT(KOLIK)) T 

FEN GOSUB 37000: GOTO 1001© 

10018 IF KOLIK=0 THEN 16990 

10620 IF KOLIK>=TF(0)-AZ+l THEN KOLIK=TF 

<0)-AZ+l:GOTO 10150 

16030 P0C=(AZ-1)*(TF(1)-TF(2))+TF(l)+3 
10040 PP=KQLIK*(TF(1)—TF(2)) 

10045 IF PP<1 THEN 16090 
16050 FOR 1=1 TO (TF(G)-AZ)*(TF(1)-TF(2) 
) 

10066 TF(POC>=TF(PQC+PP) 

10070 P0C=P0C+1 
10086 NEX T I 

10096 POC=(AZ-1) «TF(2)+TF(1)+1 
10100 PP=KOLIK*TF(2) 

10165 IF PP<1 THEN 10141 
10110 FOR 1=1 TO <TF(0)-AZ)*TF<2> 

16120 ADFx(POC)=ADFx(POC+PP) 

10130 P0C=P0C+1 

10140 NEXT I 

10141 IF K0LIK=1 THEN 10150 

10142 FOR 1=1 TO KOLIK-1 
10144 IP(AZ+I)=IP(AZ+KOLIK+I) 


10146 NEXT I 

10156 IF AZ+KOLIK>TF<0) TFEN AZ=AZ-1 
16152 TF(0)=TF(0)-KOLIK 
10990 GOTO 2006 

1100© REN *** I...VLOZ ZAZNAM *** 

11065 IF (((TF(0)+l)*(TF(l)-TF(2))+TFCl) 
+2)>NTF)+(((TF(0)+1)*TF(2)+TF(1))>ADF) T 
FEN GOSUB 38000:GOTO 11990 
11008 IF AZ=© TfCN AZ=1 
11010 POC=TF(0)*(TF(1)-TF(2))+TF(l)+2 
11020 PP=TF(1)-TF(2) 

11025 IF (TF(0)-AZ+1)*(TF(1)-TF(2)X1 TH 
EN 11076 

11O30 FOR 1=1 TO (TF(0)-AZ+1)*(TF(1)-TF( 
2 )) 

11640 TF(POC+PP)=TF(POC) 

1105© P0C=P0C-1 
11060 NEXT I 

11076 P0C=TF(©)*TF(2)+TF<1) 

11080 PP=TF(2) 

11085 IF TF(2)*(TF(0>-AZ*1X1 THEN 11130 
11090 FOR 1=1 TO TF(2)*(TF(0)-AZ+1) 

11100 ADFx(POC+PP)=ADFx(POC) 

1111© P0C=P0C-1 
11120 NEXT I 
11130 P0C=P0C+1 

11140 PP=(AZ-l)»(TF(l)-TF(2))+TF(l)+3 
11145 GOSUB 34000 
11156 FOR 1=1 TO TF(1) 

11166 PRINŢ I;"."; 

11165 IF LEFTx(JSx,l)=*A“ THEN PRINŢ ADF 

X(I)i 

1117© IF ABS(TF(I+2))=1 THEN INPUT “ >“; 
TF(PP):PP=PP+1:G0T0 11200 
11180 INPUT M >“iADFx(POC):P0C=P0C+1 
11260 NEXT I 

11201 IF TF(0)-A2<0 TFEN 11210 
11204 FOR 1=0 TO TF(6)-A2 
11206 IP(TF(0)-I+1)=IP(TF(0)-I) 

11268 NEXT I 
11210 IP(AZ)=0 
11228 TF(0)=TF(O)+1 
11990 RETURN 

120O0 REM *** B.. PRIDEJ ZAZNAM *** 

12605 IF <((TF(0)+1)*(TF(1)-TF(2))+TF<1) 

+2>>NTF)+<(TF(0>+1)*TF(2)+TF(1>>ADF) THE 

N GOSUB 38066 GOTO 11990 

12610 PQC=TF(1)+TF(2)*TF(0)+1 

12620 PP=TF(l)+TF(6)*(TF(l)-TF(2))+3 

12036 AZ=TF(0)+1 

12990 GOTO 11145 

130O0 REN *** p...TISK ZAZNAMU *** 

13065 IF TF(O)=0 THEN GOTO 36000 

13010 INPUT “KOLIK >";KOLIK 

13015 IF <K0LIK<0)+<K0LIK<>INT(K0LIK>) T 

HEN GOSUB 37600:GOTO 13016 

13026 P2=(AZ-1)*TF<2)+TF(1)+1 

13046 PP=(AZ-1>*(TFC1)-TF(2))+TF<1)+3=P1 
=0 

13045 GOSUB 34600 

13047 IF <LEFTX(0LX,1)=“A“)*(LEFTX(JSX,1 
)=“A”) THEN PRINŢ SPC(3X:F0R 1=1 TO TS( 
6) PRINŢ LEFTX<ADFX<TS< I)) ,9) ;TAB(I*10+5 

)i:N£XT I.PRINT:PRINT "- 

-":CONSOLE 3,16.2,36 

13050 FOR I=AZ TO TF<0) 

13055 IF IP(I)=1 THEN P2=P2+TF(2):PP=PP+ 
TF(1)-TF(2)=GOTO 13120 

13057 IF P1=K0LIK THEN 13130 

13058 IF LEFTx(OLx,l)=“A“ THEN 13102 
13O60 FOR J=1 TO TF<1) 

13065 IF TF(J+2)=l TFEN PP=PP+1:G0T0 131 
00 

13067 IF TF(J+2>=2 THEN P2=P2+1:G0T0 131 
0© 

13070 PRINŢ J;“."> 

13072 IF LEFTX(JSX,1)=“A" THBI PRINŢ ADF 
X<J)i“ 

13074 PRINŢ 

13076 IF ABS(TF(J+2))=1 THEN PRINŢ TF(PP 

) : PP=PP+1: GOTO 13106 

13678 PRINŢ “ ";ADFx(P2):P2=P2+1 

13100 NEXT J 

13101 GOTO 13114 

13102 PRINŢ SPC<3) i :FGR J=i TO TS(0) 

13104 IF TF<TS<J)+2)=-l THEN PRINŢ TF(PP 
-TS<J+3)+TS<J)-l); GOTO 13107 , 

13106 PRINŢ LEFTx(ADFx(P2+TS(J+3)),9); 
13187 PRINŢ TAB<J*10+5); 

13108 NEXT J 
13110 PRINŢ 

13112 P2=P2+TF(2).PP=PP+TF<1)-TF(2) 

13114 AZ=AZ+1 

13116 IF LEFTX(0LX,1X>“A" THEN PRINŢ 

13117 P1=P1+1 

13118 GET Ix.IF (LEFTx(Ix,l)=“ “MKLEFTx 


<OPx,l)=“P") TFEN GOSUB 32660 
13119 IF LEFTx(Ix,l)=“Q" THEN FOR 1=1 TO 
560:NEXT I:G0T0 13136 
13126 NEXT I 

13130 IF P1O0 TFEN AZ=AZ-1 
13990 RETURN 

14900 REN *** A.. PRIDANI POLOZKY **» 
14010 INPUT “PREDCHAZEJICI POLOZKA >";SL 
14015 IF (SL<0)+(SLOINTtSL) )+(SL>TF(l)) 
TFEN GOSUB 37060: GOTO 14616 
14026 PP=0 

14025 IF SL<1 THEN 14066 

14036 FOR 1=1 TO SL 

14046 IF ABS<TF(1+2))=2 THEN PP=PP+1 

14050 NEXT I 

14066 INPUT "JMENO NOVE POLOZKY >“;PRx 

14076 INPUT "FORMAT NOVE POLOZKY >“,PR 

14675 IF <PR<>1)*<PR<>2) THEN GOSUB 3706 
© GOTO 14070 

14676 IF PR=1 TFEN IF <TF(0)*<TF(1)-TF<2 
))+TF(l)+2+TF(0))>NTF THEN GOSUB 38000: 
GOTO 14990 

14077 IF (TF(O)*TF(2)+TF(1)+TF(0))>ADF T 
HEN GOSUB 33006:GOTO 1499© 

14086 IF PR=1 THEN P0C=TF(l)+2+<TF<l)-TF 
(2))*TF(0):PQ=TF(6):GOTO 14195 
14690 POC=TF(1)+TF(0)+TF(2):Pa=TF(0) 
14695 IF TF(0)=0 THEN 14196 
14106 FOR 1=1 TO TFC6) 

14105 IF TF(2)-PP<1 TFEN 14146 
14110 FOR J=1 TO TF(2)-PP 
14126 ADFx(POC+PQ)=ADFx(PCC):P0C=P0C-1 
14136 NEXT J 

14146 ADFx(POC+PQ)=““.PQ=PQ-l 

14145 IF PP<1 THEN 14180 

14156 FOR J=1 TO PP 

14160 ADFx<POC+PQ)=ADFx<POC) : P0C=P0C-1 

14176 NEXT J 

14180 NEXT I 

14190 TF(2)=TF(2)+1:G0T0 14296 
14195 IF TF(0)=0 TFEN 14290 
14200 FOR 1=1 TO TF(0) 

14205 IF TF(1)-TF(2)-SL+PP<1 THEN 14246 
14210 FOI J=1 TO TF(1)-TF(2)-SL+PP 
14226 TF (POC+PQ) =TF (POC): POC=POC-i 
14230 NEXT J 

14240 TF(POC+PQ)=6:PQ=PQ-1 

14245 IF SL-PP<1 THEN 14280 

14256 FOR J=1 TO SL-PP 

14260 TF(POC+PQ)=TF(POC):P0C=P0C-1 

14270 NEXT J 

14286 NEXT I 

14296 TF(1)=TF(1)+1 

14360 POC=(TF(1)-TF(2))*TF(0)+TF(1)+1 

14305 IF P0C-SL-2C1 TFEN 14350 

14316 FOR 1=1 TO POC-SL-2 

14320 TF(POC+i)=TF(POC> 

14336 P0C=P0C-1 
14340 NEXT I 

14350 POC=TF<2)*TF(0)+TF(1)-1 
14355 IF POC-SL<1 THEN 14400 
14360 FOR 1=1 TO POC-SL 
14370 ADFx(POC+l)=ADFx(PQC) 

14386 P0C=P0C-1 
14390 NEXT I 
14460 TF(SL+3)=-PR 
14416 AQFx(SL+l)=PRx 
14990 GOTO 2600 

15000 REN **+ N. ZMENA JNENA POLOZKY *** 
15010 IFEUT “PREJIENOVAVANA POLOZKA >“;S 
L 

15015 IF (SL<0)+(SL>TF(1) )+(SLOINT(SL)) 
THEN GOSUB 37006:GOTO 15616 
15620 INPUT “NOVE JMENO >“;PRx 
15036 ADFx<SL)=PRx 
15996 RETURN 

1600© REN *** F.. ZRUSENI POLOZKY **♦ 
16006 IF TF(1)-1<1 THEN GOSUB 34600:CURS 
OR 8,6:PRINT “*** ZRUSTE DATABAZI ! ***“ 
RETURN 

16010 INPUT “RUSENA POLOZKA >“,SL 
16015 IF <SL<1)+(SL>TF<1))+<SL<>INT<SL>) 
THEN GOSUB 37000:GOTO 16610 
16620 PP=0 

16625 IF SL=1 THEN 16086 

16630 FOR 1=1 TO SL-1 

16040 IF ABS(TF(I+2))=2 THEN PP=PP+1 

16056 ICXT I 

16680 IF ABS<TF<SL+2))=1 THEN P0C=TF(1)+ 
2-PP+SL:P6=l:GOTO 16195 
16096 P0C=TF(1)+PP+1:PG=Î 
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16095 IF TF<t»)=0 THEN 1619© 

1610© FOR 1=1 TO TF<©> 

16105 IF TF(2)-1<1 THEN 1614© 

1611© FOR J=i TO TF<2)-1 

16120 ADFx < POC)=ADFx(PQC+PQ):POC=POC+l 

16110 hCXT J 

1614© PQ=PQ+Î 

1618© NEXT I 

16190 TF(2)=TF(2)-1:GQTQ 16290 
16195 IF TF(0)=0 THEN 16290 
16200 FOR 1=1 TO TF(O) 

16205 IF TF(1)-TF(2)-1<1 THEN 16280 

16210 FOR J=1 TO TF(1)-TF(2)-1 

1622© TF(POC)=TF<FOC+PQ):P0C=F0C-1 

16230 NEXT J 

1624© PQ=P0-1 

1628© NEXT I 

16290 TF(Î)=TF(1)-1 

1630© P0C=SL+2 

Î6305 IF (TF(1)-TF(2))*TF(0)+TF(1>-SL+1< 
1 THEN 16350 

16310 FOR 1=1 TO (TF(1)-TF(2))*TF<0)+TF( 
1)-SL+1 

16320 TF < POC)=TF(POC+1) 

16330 P0C=P0C+1 
16340 NEXT I 
1635© POC=SL 

16355 IF TF(2)*TF (0)+TF( D-SL+Kl TFEN 1 
6990 

16360 FOR 1=1 TO TF(2)*TF(0)+TF( D-SL+1 
16370 ADFx(POC)=ADF*(POC+1) 

16380 P0C=P0C+1 

16390, NEXT I 

16990 GOTO 20O0 

1700© REM U. . .SAVE *+* 

17005 IF TF<0)=© THEN GOTO 36OO0 

17006 INPUT "CHRANIT ZAPIS? (A/N) >";OPx 

17007 IF LEFTX(0PX/1)=-N” THEN PRx=",;;> 
"GOTO 1701© 

17008 IF LEFTx i OPx, 1)0 “A" THEN PRINŢ:PR 
INT CSX:PRINŢ GOTO 17006 

17009 INPUT "HESLO > M ,PR*CLS 

17010 GOSUB 34OO0 

17020 CURSOR 13.5:PRINŢ CHRx (xTFî;" RECO 
RD.PLAY" 

17022 J=TF(0)*(TF(l)-TF(2))+2+7F(l) 

17024 K=TF(0)*TF(2i+TF(l) 

17025 WOPEN ADfx(0J 
1703© PRINT/T PRx 
17©*© PRINT/T J 
17050 PRINT/T K 
17060 FOR 1=0 TO J 
17100 PRINT/T TF(I) 

17110 NEXT I 
1714© FOR I=© TO K 
17150 PRINT/T ADFx(I) 

17170 NEXT I 

17240 CLOSE 
1725© as 
1799© RETURN 

18000 REN *** 2.. LOAD *** 

18002 IF 0K=© THEN INPUT "EXISTUJICI DAT 
ABAZI ZRUSIT?(A/N) >";OPx : IF L£FTx(OPx,l 
K>"A“ THEN 18990 

18005 INPUT "JHENQ DATABAZE Z CNT >";OPx 

18008 G0SU6 34000 

18009 CURSOR 16,5:PRINT CHRx(xTF);" PLAY 

18010 ROPEN OPx 

18011 INPUT/T PRx 

18012 IF PRx<>“;;;;" THEN PRINŢ:INPUT ” 

HESLO? >"iOPx : CLS:IF PRxOOP 
x THEN CLOSE: GOTO 10 

18013 INPUT/T J 
18016 INPUT/T K 
18O20 FOR 1=0 TO J 
18030 INPUT/T TF<I) 

1804© NEXT I 
1805© FOR 1=0 TO K 
18060 IWHJT/T ADFx(I) 

18070 NEXT I 

1808© CLOSE 

18090 FOR 1*0 TO TF(0):IP<I)=0:NEXT I 
18095 FOR 1=3 TO TF( l)+2-.TF(I )*A8S(TF(I) 
>:»CXT I 

18100 AZ=1:OK*0:TF(3)=-TF(3) 

18110 JSx="A“:OLx»“N" 

1899© GOTO 2000 

190O0 REM *** G...VYTVORENI DATABAZE *** 
19002 IF 0K=-1 THEN 19008 
19004 INPUT "EXISTUJICI DATABAZI ZRUSIT? 
(A/N) >°;OPx 
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19006 IF L£FT*(GPx, 1K>"A" THEN 1999© 
19008 PRINŢ:PRINŢ “CEKEJTE PROSIM !" 
19010 FOR 1=0 TO ADF 
19O20 ADFx(I)=*“ 

1903© NEXT I 
19040 FOR I*0 TO NTF 
19050 TF(I)=0 

19060 NEXT I 

19061 FOR 1=0 TQ NZD 

19062 IP(I)=© 

19063 NEXT I 

19065 CONSOLE l,23,l,38 : aS:CURS0R 2,1:C 
ONSOLE 1,23.2.36 

19O70 INPUT "JHENO NOVE DATABAZE." 

.PRx 

19O80 INPUT "POTVRDTE VYTVORENI (A/N)..“ 
;OPx 

1909© IF LEFTx(0Px,l)O*A" THEN 0K*-1.G0 
TO 30 

19100 INPUT “POCET POLOZEK DATABAZE....” 
iTF(l) 

19101 IF lTF(l)<l)+(TF( l)OINT(TF (1))) T 
HEN GOSUB 370O0:GOTO 1910© 

19102 INPUT "POCET POLOZEK FuRMATU 2..." 
;TF(2) 

19103 IF (TF<2K0)+<TF(2)OINT<TF(2>>> T 
HEN GOSUB 3700O:GOTO 19102 

19194 IF < ADF-TF(1)-TF(2)<©)+(NTF-2-2*TF 
(1)+TF(2)<0) THEN PRINT:PRINT SPC(2);KSx 
:PRINŢ:GOTO 1910O 

1911© ADFX(0)=PRX:PQC=0 
1912© FOR 1*1 TO TF(1> 

19130 PRINŢ:PRINŢ "PaOZKA«;I 

19140 INPUT " JNENO_" i ADFx(I) 

19150 INPUT “ FORMAT.. ,";TF(I+2) 

19155 IF <TF(I+2K>1)*(TF(I+2K>2> THEN 
GOSUB 3700© GOTO 19150 
19157 IF TF(I+2)*2 THEN P0C=P0C+1 
19160 NEXT I 

19170 PRINŢ:INPUT "NEJfKE OPRAVY? (A/N). 
.";OPx * 

19180 IF LEFTx{OPx, 1 K> " A" THEN 19270 
1919© INPUT "OPRAVOVANA POLOZKA... _" 

;SL 

19195 IF (SLOINT(SL) )+(SL<l)+(3L>TF(l)) 
THEN GOSUB 370©0:G0T0 19190 

1920© INPUT "ZMENIT JMENO? (A/N).» 

> OPx 

1921© IF LEFTX(OPx,1)<>"A" THEN 19230 

19220 INPUT " NOVE J*£NO.• 

.ADFx(SL) 

1923© INPUT "ZMENIT FORMAT? (A/N)." 

>OPx 

19240 IF LEFTx(OPx,l)<>“A" THEN 19260 

19250 INPUT " NOVY FORMAT." 

;PR 

19255 IF (PR01)*(PR<>2) THEN GOSUB 3700 
0:GOTO 1925© 

19256 IF <TF(SL+2)=2)*(PR=1) THEN POC=PO 
C-1:G0T0 19259 

19257 IF <TF<SL+2) =1) •* (PR=2) THEN POC*PO 
C+l 

19258 IF (ADF-TF(1 >~POC<0)+(NTF-2-2+TF (1 
>+POC<0> THEN PRINŢ:PRINŢ SPC(2),KSx : PRI 
NT:GOTO 191O0 

19259 TF(SL+2)=PR 
1926© GOTO 19170 

19270 as:CONSOLE:CURSOR 1,17:PRINT CI,3 
■ maaoaB NOVA DATABAZE »* *= ** ==* *« 

19990 TF(3)=-TF(3):TF(2)=POC:AZ=0:RETURN 
20000 REN ♦** H...AKTIVIZACE ZAZNAMU *** 
20005 IF TF(0)*O THEN GOTO 36000 
20010 FOR 1=1 TO TF(0) 

20020 IP(I)=0 
20030 NEXT I 
20990 GOTO 2000 

21000 REM *** A. .OPERACE AND *** 

210O5 IF TF(O)=0 THEN GOTO 3600© 

2101© GOSUB 30006 
2103© FOR 1=1 TO TF(O) 

21040 IF IP(I)=9 THEN GOSUB 31006 
21050 P0C=P0C+TF<2):PP=PP+TF(1)-TF(2) 
2106O NEXT I 
21990 GOTO 200O 

22000 REM 0.. OPERACE OR *** 

22005 IF TF(0)=0 THEN GOTO 36O0© 

22010 GOSUB 30000 
22040 FOR 1=1 TO TF(O) 

22050 IF IP(I)=1 THEN GOSUB 3100© 

2206© P0C=P0C+TF(2):PP=PP+TF(1)-TF(2) 
22070 NEXT T 
22990 GOTO 2000 

23000 REM #** X...STATISTIKA **• 

23005 IF TF(0)=© THEN GOTO 3600© 

23010 INPUT "Pa02KA >“,SL 

23015 IF (SL<1)+(SL>TF(1) )+(SLOINT(SL)) 


+(ABS(TF(SL+2))=2) THEN GOSUB 37006:GOTO 
2301© 

2303© INPUT "TAKE STANDARTNI OOCHYLKU? < 
A/N) >";OPx 

23035 GOSUB 34600 

2304© PRINŢ ADFx(SL):PRINŢ 

23042 PP*0 

23043 IF SL-Kl THEN 23050 

23044 FOR 1=1 TO SL-1 

23046 IF ABS(TF(I+2))=1 THEN PP=PP+i 
23048 NEXT I 

23056 Pl=0:P2=0:P3=6:POC=Tf (D+3+PP 
2306© FOR 1=1 TO TF(O) 

23070 IF IP(I)=1 THEN 2310© 

2308© Pl*Pî+l 
2309© P2=P2+TF(POC) 

2310O POC=POC+T F(1)-TF 12) 

23110 NEXT I 

23120 PRINŢ " ZAZNAMU =",P1 

23125 PRINŢ “ SOUCET *“;P2 

23130 IF Pî=© THEN 23990 
2314© P2=P2/Pl 

23150 PRINŢ “ PRUMER =“>P2 

2316© IF LEFTx(0Px,1)<>“A” THEN 2399© 
23165 POC=TF(1)+3+PP 
2317© FOR 1=1 TO TF(0) 

23180 IF IP(I)=1 THEN 2320© 

23190 P3=P3+ (TF < POC > -P2) "*2 
23200 P0C=P0C+TF(1)-TF(2) 

23210 NEXT I 

23220 PRINŢ PRINŢ " STANDARTNI ODCHYLK 
A *";SQR(P3/P1> 

23990 RETURN 

24000 REM *** Y...SELEKCE TISKU *** 
24065 CONSOLE 1,23,1,38=CLS:CURS0R 2,1.C 
ONSOLE 1,23,2,36 

24010 INPUT "KaiK ZOBRAZIT POLOZEK. 

_";a 

24011 IF (SL<0)+(SL>TF<1) )+(SLOINT(3L)) 
THEN COSI» 37©0©-GOTO 2401© 

24012 IF SL=© THEN ax*"N" :TF(3)=ABS(TF< 
3)).GOTO 2409© 

24G13 INPUT "DO RADKU? (A/N). 

_", ax = PRINŢ 

24014 IF (LEFTx<QLx,l)="A")*(SL>3) THEN 
SL=3 

24020 FOR 1*1 TO TF(1> 

24030 TF(I+2)=ABS(TF(1+2)) 

2404© NEXT I 

24042 FOR 1=0 TO 6:TS(I)=0NEXT I 

24045 PI*6 

24050 FOR 1*1 TO SL 

24060 PRINŢ "CISLOM;". POLOZKY"; 

24065 INPUT ".“;PR 

24066 IF (PR<l)*(LEFTx<ax,l)<>"A")»(PR< 
=P1)+(PR>TF(1) >+(PROINT(PR)) THEN GOSUB 

37000.GOTO 24060 

24067 P1«PR 

24068 IF LEFTx(ax,lK>"A" THEN 24074 

24069 IF PR-Kl THEN 24073 

24070 FOR J*1 TO PR-1 

24©71 IF A6S(TF(J+2))=2 THEN TS(I+3)=TS< 
I+3)M 

24072 NEXT J 

24073 TS(I)=PR:TS(O>*TS(0>+1 

24074 TF(PR+2)*-ABS(TF(PR+2)> 

24075 IF (LEFTx(OLx,l)<>"A")*(Pl=TF(l)) 
THEN 24090 

24080 NEXT I 

24090 PRINŢ;INPUT "ZOBRAZIT JMENA POLOZE 
K? (A/N).JS* 

24190 as:CONSOLE:CURSOR 1,17:PRJNT 11,1 

24996 RETURN 

30000 REM m SUBRUTINA AKTIVACE 1 *** 
3001© INPUT "POLOZKA >">SL 
30015 IF (SL<1)+(SL>TF(1) )+<SLOINT(SL)) 
THEN GOSUB 37000:GOTO 30010 
3002© INPUT "<,> NEBO = (KTERA Z NICH?) 
>"iOPx 

30025 IF (LEFTx (OPx, l)O">")*(LEFTx(0Px, 
1)O"=")*(LEFTx(OPx,l)<>'•<■) THEN GOSUB 
37600:GOTO 30620 

3003© IF ABS(TF(SL+2))=1 THEN IW>UT "HOD 

NOTA >"iPR:GOTO 30640 

36635 INPUT "HOONOTA >";PRx 

30040 POC=6:PP=0 

30650 FOR 1=1 TO SL 

30060 IF ABS(TF(1+2))=2 THEN P0C=P0C+1:G 

OTO 36080 

36070 PP=PP+1 

3068© NEXT I 

3609© PP=TF(î)+2+PP 

3010© POC=TF(D+PGC 

36990 RETURN 












31600 REM *** SUBRUTINA AKTIVACE 2 *** 
31010 IF ABSdF(SL+2))=2 THEN 31070 
31620 IF LEFT*<0Px, 1)=**<** THEN IF PR>TF( 
PP) THEN 31110 

31630 IF LEFTx<0px,l)="=" TFCN IF PR-TF( 
PP) TE€N 3111© 

31640 IF LEFTx(0PX/l)=“>“ THEN IF PR<TF( 
PP) THEN 31116 
31650 GOTO 31996 

31070 IF LEFTx(OPx,l)="<;“ THEN IF PRx>LE 
FTx(AOF x(POC)-LEN(PRx)) THEN 31110 
31080 IF LEFTx(OPx,l)=“=“ THEN IF PRx=LE 
FTx(ADFx<POC),LEN(PR x)) THEN 31110 
31090 IF LEFTx(OPx,!)=■>■ THEN IF PRx<LE 
FTx(AOFx(POC),LEN(PRx)) THEN 31116 
31100 GOTO 31996 
31110 IP(I)=0 : RETURN 
31990 IP(I)=1:RETURN 
32006 REN »* WAITING *** 

32610 GET lx : IF (LEFTx(lx,l)<>“ ")*(L£FT 
x(lx,l)<>-Q“) THEN 32016 
32990 RETURN 
33066 REN *** UVQD *** 

33065 CCfNSOLE = CURSOR 0,0 

33O10 CSx=“ ===================== 


33020 KSx=" : 

33030 PRINŢ CI,3 CSX 

3304O FOR 1=1 TO 16:PRINT CI,3 KSx; : NEXT 
I 

33056 PRINŢ CI,3 CSX 

33066 FOR 1=1 TO 6=PRINT CI,3 KSx; : NEXT 

I 

3307© PRINŢ CI,3 CSX; 

33680 CSx=“-" 

33090 KSx="I I" 

331O0 CURSOR 12,3:PRINŢ CSX, 

3311© FOR 1=4 TO 11:CURS0R 12,I=PRINT KS 
X; : FEXT I 

33120 CURSOR 12,12:PRINŢ CSX; 

33130 CURSOR 12,9:PRINŢ CSx; 

33146 CURSOR 16,5:PRINT "DATABA2E"; 

3315© CURSOR 16,?.PRINŢ "R I D S"; 

33160 CURSOR 14,1©.PRINT “V3.2 (4.8.87) H 

33170 CURSOR 15,11:PRINŢ “(C) SVEHLA"; 
33180 CURSOR 15,14.PRINŢ “STISKNI ?“; 
-33190 KSx=“*** KAPACITA PREKROCENA ! *** 

3320© PSx=« *** PRAZDNA DATABAZE < ***“ 
33210 CSx=“ *** CHYBNY VSTUP ! ***“ 
33990 RETURN 

34000 REN *** KONSOLA HORNI *** 

34019 CURSOR 2,1 
3402© CONSOLE 1,16,2,36 
34030 CLS 
3499© RETURN 

35000 REN *** KONSOLA DOLNI *** 

3501© CURSOR 2,18 
3502© CONSOLE 18,6,2,36 
35030 CLS 
35990 RETURN 

3600© REN *** PRAZDNA DATABAZE **+ 

36005 GOSUB 34O0O 

36010 CURSOR 5,5:PRINT PSx 

3699© RETURN 

37000 REN *** CHYBNY VSTUP *** 

37016 PRINŢ:PRINŢ SPC<5),CSx : PRINŢ 
37990 RETURN 

38009 REN *** KAPACITA PREKROCENA *** 
38005 GOSUB 34006 
38610 CURSOR 5,3:PRINT KSx 
38990 RETURN 

3900© REN «* OSETRENI SYST. CHYBY *** 

3901© GOSUB 37O00 

3999© RESUHE 

50600 CLS:FOR I=© TO NTF 

50001 PRINŢ ADFx(I);TAB(25);IPm,TF<I) 

50065 GET IX;IF L£FTx<lx,l)=“ « THEN GOS 

UB 32000 

50067 IF LEFTx(Ix,î)=«Q* THEN 50990 
50010 NEXT I 
56990 RETURN 


Definice tesk^ho generatorii znaku 

FO00=DB E0 11 86 CI 21 78 F0 /»#. a!xH 
F068=01 30 0© ED B0 11 C6 CI /.O M t#a 
F016=01 10 00 ED BO 11 E8 CI /.. N Xa 
F018=O1 08 O© ED BO 11 08 C2 /..,N ..6 
F02O=©1 08 OG ED BG 11 29 C2 /...N . 6 
F©28=01 ©8 ©0 ED B@ 11 30 C2 /...N .06 
F03O=01 18 ©0 ED 86 11 98 C2 /...M . 6 
F038=01 08 60 ED B@ 11 8© C3 /.. M . u. 
F040=01 10 DO ED BO 11 A6 C3 /.. ,N . u. 
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I DATABA7E I 
1 R I » S I 
I I 


I V3.2 (4.8.1VB7) I 
I <C> SVEHLA I 


STISKNI ? 


PRIKLAS P 0 U Z I I I 
DATABAZE R 1 ii S 


- ZAVEUEN1 V BASICU : 

READY 

tOAD "RIDS-JSS (C)' 

FOUND 'RJBS-JSS(C)” 

LUAUINU "RIUS-JSSvO" 

READY 

RUN 

R I D S 
JSS<C)-19ts7 

DEFINOVAT CESKOU ABLCEDU ? (A/N) > A 
JE NUiNY WJUBOR CNi: >CtSKY PCG< • 
i PLAY 


I I 

I BATABAZF I 
I R I U S I 
I I 


I V3„2 (4.8.1987) I 
I (C) SVF.Hl A 1 


STISKNI ? 


PRIKA7 VYZNAM 


?.INFORHACE O PR1KAZFCH 

R.S1AV BATABAZE 

C.POLOZKY DAIABAZE 

+CN3 — POSUV UKAZATELF. VPRED 
-rNIl...POSUV UKAZA1EIE VZAD 

I.NALEZENI ZAZNAMU 

S.JAKO L SE ZHENUU 

E......ZGBRAZFN1 uBSAHU POLOZKY 

V.JAKO t SE ZHENUU 

DCN3...ZRUSENI ZAZNAMU 

I.VL02ENI ZAZNAMU PRtiJ BEZNY 

B.PRIDANI ZAZNAMU NA KUNEC 

PENI...ROZEPSANI ZAZNAMU 

DALSJ PR1KAZY? (A/N) > A 

PRIKAZ VYZNAM 


M.PRIDANI PGLU2KY 

N.PREJMENOVANI POLOZKY 

F.ZkUSENl POLUZKY 

U.ULOZENI DA1ABAZL NA CMT 

Z.ZAVtDENI DATABAZE Z CM1 

G.VYTV0REN1 DAIABAZE 

K.ZRUSENI DAIABAZE 

H.AKT1VIZACE ZAZNAMU 

A.._AK1IV1ZACE - OFERACI AND 

0..-AKTIV1ZACE - OPERAU UR 

X.STA11S1IKA DAI 

Y.SELEKCE T1SKU 

Q .KONEC PRACE S DATABAZ1 


CEKEJTE PROSJN ! 


JMENO NOVE DAIABAZE.UDE 

PUIVRDTL VYIVORENI (A/N).A 

P0CE1 P0L07EK DATABAZE..._3 


POCET POLUZEK FURMAIU 2.2 

POLUZKA 1 

JMENO....PRIJMENI 
FORMAT...2 

P0102KA 2 

JMENO....JMENO 
F0RMAT...1 

POLOZKA 3 

JMENO_IELEFON 

FORMAI... 1 


NEJAKE OPRAVY? (A/N)...A 

OPRAVOVANA POLUZKA.2 

ZHENIT JMENO? (A/N).N 

7.MENJT EURMAI? (A/N).A 

NOVY FORMAI.2 

NEJAKE OPRAVY? (A/N).N 

*C 

1. PRIJMENI FORMAI = 2 

2. JMENO FORMAI = 2 

3. TELEFON FORMAT = 1 


DATABAZE ! LIDE 
ZAZNAMU : O 
POLUZEK : 3 

BEZNY ZAZNAM i 0. 


AKT1VNICH ZAZNAMU : O 

,v \ 


KOI 1K ZUBRAZIT POLUZEK.3 

DO RADKU? (A/N).A 

CI3L0 l.POLO/KY.? 

CISI.O 7.PUL0ZKY....1 

CISIO 3-POLOZKY.3 


ZOBRAZII JMENA POLUZEK? (A/N)...A 
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1. (-‘RUMENI ) KRATKA 

2. JHENO > JANA 
3- TFLEFON > 3271 

*y 

1. PRUnfc.Nl ) 1VANIC 

2. JMENO > JOSEfc 

3. TELEFON > 4132 

#- 

O KOLIK > 3 

JHENO PRUMLN1 TELEFON 

JANA KRATKA 3271 

*p 

KOIIK > 999 

JHENO PRIJMENI TELEfcON 

JANA KRATKA 3271 

JOSEF IVANIC 4132 

*F 

CISLO POLOZKY > 1 
OBSAH = IVANIC 
tiV 

CISLO PULU/KY > 3 


KOl.IK > 1 

DATABAZE : LIRE 
ZAZNAMU î 2 

POLOZEK 53 - 

BE7NY ZAZNAM : 2. 

AKTIVNICH 2A/NAMU : 2 

*- 

O KOI IK > 2 

JMFNO PRlJMfcNl TELFfcON 

JANA KRATKA 3271 

*P 

KOLIK > 10 

JHENO PRUMENI TELEFON 

JANA KRA1KA 3271 

PETR HANN 1427 

*X 

POLOZKA > 3 

TAKE STANRAR1N1 OOCHYLKU? (A/N) ) A 

TELEFON 

ZAZNAMU = 2 

S0UCE1 * 4690 

PRUMER ^ 2349 


EXISTUJIC1 DATABAZI ZRUSIT?(A/N)) A 
JMFNO DATABA2E 2 CMT > LIRE 

â PLAY 

HESLO? > SHARP 

DATARAZE i LIRE 
ZAZNAMU : 2 
POLOZEK : 3 

BEZNY ZA2NAM : 1. 


AKTIVNICH 7A7NAMU : 2 


KOLIK ZGBRA2IT POLOZEK.....3 

DO RADKU? (A/N).N 

CISLO l.POLOZKY...1 

CISL O 2.POLU2KY. j2 

CISLO 3.P0L02KY...3 


Z0BRA7IT JMENA POLOZEK? (A/N)...A 


PREBCHAZEJICI POLOZKA > 1 
JHENO NOVE POLOZKY > VEK 
FORHAT NOVE POLO/KY ) 1 

DAIARAZE : LIRE 
ZAZNAMU : 2 
POLOZEK : 4 

REZNY 7A2NAM : 1. 


AKTIVN1CH /AZNAMU s 2 


«B 


*k 


*L 


*R 


OBSAH » 4132 
NOVY OBSAH > 4232 


1. PRUMENI > KANN 

2. JMENO > PE IR 

3. TELEFON ) 1427 


DA1ABAZE : LIRE 
ZAZNAMU : 3 
POLOZEK : 3 

BFZNY ZAZNAM : 3. 

AKTIVNICH 7AZNAMU : 3 


POLOZKA > ? 
OBSAH > JANA 


JMENO 


PRIJNEN1 TELEFON 


JANA 


KRA1KA 


3271 


«S 


POLOZKA > 3 
OBSAH > 4232 

JMENO PRIJMENI TELEFON 
JOSEF IVANIC 4232 

NOVY OBSAH > 4132 


DATABAZE : LIRE 
ZAZNAMU : 3 
F'OLOZFK : 3 

BFZNY ZAZNAM : 2. 

AKTIVNICH ZAZNAMU : 3 
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STANRAR1N1 GBCHYl.KA - 92? 


POLO/KA > ) 

<»> NERO * (KTERA ?. N1CHV) ) * 
HORNULA > 10MAN 

DAIABAZE : LIRE 
ZAZNAMU : 2 
POI UZEK : 3 


#fc 


BEZNY ZA/NAM 


: 2 . 


*0 


AKTIVNICH ZAZNAMU : O 


POLOZKA > 3 

(,) NERO * (KTERA 7 N1CHV) ) < 
H0DN01A > 2000 

DAIABAZE : LIDL 
ZAZNAMU : 2 
POLOZEK : 3 


BEZNY ZAZNAM 


: 2 . 


*P 


AKTIVNICH 7AZNAMU î 1 


KOLIK > 3 

JMFNO PRIJMENI TELEFON 


*H 


*U 


#N 


*C 


*P 


PETR 

HANN 

1427 

DAIABAZE 

: LIRE 


ZAZNAMU 

: 2 


POLOZEK 

î 3 


BE/NY ZAZNAM 

; 2- 

AKTIVNICH ZAZNAMU 

: 2 


CHRANIT ZAP1S? (A/N) > A 
HESLO > SHARP 


RUSENA POLOZKA > 4 

DAIABAZE i LIDE 
ZAZNAMU : 2 
POLOZEK : 3 

BFZNY ZAZNAM : 1. 

AKTIVNICH ZAZNAMU : 2 


PRFJME NOVAVANA POLOZKA > 3 
NOVE JMENO > JH. 


1. PRUMENI 

2. VEK 

3. JM. 


KOIIK > 3 


FORMAT = 2 
FORMAI = 1 
FORMAI - 2 


1. PRIJMENI > KRATKA 

2. VEK > O 

3. JM. > JANA 


#K 


1.PRUMENI > HANN 


2.VEK > 0 


3.JM. > PF.1R 


POIVRUTE! <A/M> > A 

I 

I 

I DATARAZE 

I 

I R I D S 

1 

I 

I 

I V3.2 (4.8.1V87) 

I 

I (C) SVEHLA 

I 


STISKNI ? 


k RECORD.PLAY 


*0 


READY 

IHHHHHHMMHHHHHHtiHHHHHHHHHtlHHttHHHHHtiHHHHMi 
























«lan Krej£i, Boufuova 1104 , 19 a 00 pntm 9 


Pro vytvofeni programu Skicâk mne 
inspirovalo nâkoiik skuteCnosti. PFe- 
devSIm jsem potFeboval pro nâkterâ 
svâ programy ck>konate graficky pro- 
vedenâ obrazovky bu<f jako Ovodni 
obrazovku, nebo funkCni Câst progra¬ 
mu (napHklad mapy, plânky a podob- 
ni). Dâle to byf mfljj koiega mg. LibeS, 
ktery vytvâFel obrazovky tak, Se si 
nejprve pfipravil a dokon al c promyslei 
svâj nâvrh mimo poCitaC, napFiktad na 
paplfe a ton pak pomoci mi li metr o- 
vâho papiru rozloSii na jednotlivâ bo- 
dy, tak jako Je tvofena obrazovfca. Tyto 
body pak pfenesi jako jednotlivâ bajty 
do bnicwiho programu (do DATA), 
vytiskl obrazovku, nahrâi ji a tak s ni 
byk> moină pracovat dăl. Tato metoda 
se mi zdâla jako jedna z nejdokonaiej- 
iich, ale tak pracnâ, Se jsem se rozhodl 
năjakym zpăsobem ji uiehCit. Samo- 
zfejme, Se itejdokonafejSi by byto roz- 
toiH signAi z tetonzni kamery, vytvofit 
videodigitizâr, anebo si jej koupit, Ci 
pouSft jinou mechanickou metodu, ne¬ 
bo dokonatej&i programovy prostfe- 
dek. Ale v tâ dob£ jsem mii k dispozici 
pouze programy, kterâ pracovaly na 
obrazovce dosti hrubă a obraz vytvâFe- 
ly pomoci Sar a obrazcQ, nebo 
i ptfmym kresienfm na obrazovku po- 
"moci svStonSho pera nebo myii. 



ZaCal jsem proto pracovat na progra¬ 
mu, ktery by vyuiival shora uvedenou 
metodu s rozloienim pfedem pfiprave- 
nâho nâvrhu na jednotlivâ body a jejich 
systematickym pfenesenim do pamăti 
poCitaCe. Pro rozklad pFedlohy se mi 
nejJâpe osvâdCil pruhledny milimetrovy 
papfr se zdâraznănym rastrem 8 mm, 
tedy osm bodO. Pouifvăm formât A4, 
ktery je svymi rozmâry optimâlnf pro 
rozklad kre9eb, tisku i fotografii. Pru- 
svitny papfr pFiloiim na kresbu, umis- 
tim do zvolenă poiohy a odeCitâm 
jednotlivâ osmice bodu (v podstatâ 
bajty) ve zdOraznănâm CtvereCku 8x8 
bodC a vklâdâm je pomoci funkce 
INPUT programu Skicâk do pamâti 
Spectra. Postupuji systematicky od 
ievâho horniho rohu obrâzku, po jed- 
notiivych Fâdcich ai k pravâmu dol- 
nimu rohu. 

Po vioSeni vâech Căşti programu do 
pamăti se .program spusti pfikazem 
RliN. To plaţi i pro pFipady pFi pferuSe- 
nf nebo vypadnuti z programu. 


Hiavni nabidka („menu“) 

Spustime-li program, ocitneme se 
v hiavni nabidce (menu). Na obrazovce 
se objevi nâzev programu, Cfsio jeho 
verze a seznam funkci năbidky 
(v râmeCku). Funkci je celkem păt. 
OznaCeny jsou vidy Cislem a nâzvem. 
K jejich vyvotâni je tfeba stisknout 
pffsiuănou Cisiici. 

1 — EDITOR 

Musime zvolit jednu ze tri pracovnfch 
pamăti. MoSnost prâce se tFemi „obra- 


zovkami" ocenime pfi modifikaci jiS 
hotovych obrazovek, pfi jejich mfchânf 
a prolinâni. Po zvoleni Cisla pracovni 
pa mâţi se dostaneme do EDITORu. Ten 
bude popsân samostatnâ v nâsledujici 
kapitole. 

2 — LIST 

Tato funkce je urCena pro prohliSeni 
obsahu jednotlivych obrazovek. Stis- 
kem libovolnâ dalăi klâvesy (kromă 
klâvesy ,,Q“) listujeme jednotlivymi 
obrazovkami, jejichS Cislo blikâ vidy 
v pravâm homim rohu obrazovky. 
Nâvrat do hiavni nabidky je klâvesou 


3 — L0AD 

Umoinf pFeCist data z mgf pâsku do 
jednâ ze tfl pracovnich obrazovek. 
Zvolenâ obrazovka se informa tivnă zo- 
brazf. Nâvrat do hlavnf nabidky je 
automaticky. 

4 — SAVE 

Na mgf pâsek bude pod le volby zazna- 
menân obsah jednâ ze tFf obrazovek 
(oblasti pamâti). 


Obrazovka 

Od adresy 

Dâlka 

1 

40000 

6912 

2 

46912 

6912 

3 

53824 

6912 


Z toho vyplyvâ, ie pfi nahrâni do 
obrazovky je nutnâ uloieni bliie speci- 
fikovat, nebo pouiit pFikazu SCREEN& 
Pfi vyvolâni se zobrazi informaţivnă 
zvolenâ obrazovka. Nâvrat do hiavni 
nabidky je automaticky. 


5 — HELP 

Funkce popisuje vlastnosti poveiu EDI¬ 
TORu v pfipadă, ie ztratite orientacî pfi 
obsluze programu. Postrâdâ pouze 
popis vediejăi funkce kurzorovych 
klâves EDITORu. Ta bude popsâna 
v nâsledujici Căşti. Nâvrat do hlavnf 
nabidky je automaticky. 

Popis EDITORu 

Klâvesou „1“ z hiavni nabidky a po 
volbâ pracovni obrazovky se do- 
stâvâme do EDITORu — nositele my§- 
lenky programu. Slouii k pFenâCeni 
grafickâ informace z pripravenâ pFed- 
lohy a k dalăi upravâ obrazu pomoci 
nâkolika poveiu. 

Obrazovka je rozd&lena do dvou 
Câsti. Ve spodnich dvou Fâdcich (v 
editaCni zână) je nabidka poveiu EDI¬ 
TORu a souFadnice kurzoru. Tim mOie- 
me pohybovat pomoci kurzorovych 
klâves 5,8,7,8 po zbyvajîci, horni Câsti 
obrazovky. Povely aktivujeme stiskem 
poCâteCniho inverznă zduraznânâho 
znaku na klâvesnici poCHaCe. Destruk- 
tivnâ pusobici povely, pfi kterych do- 
châzi k podstatnym a nevratnym 
zmânâm na obrazovce, volâme souCas- 
nym stiskem klâves znaku a klâves 
CAPS SHIFT nebo SYMBOL SHIFT. 

Program umoihuje prâci v celâm 
rozsahu obrazovky (192 bodu — 24 
Fâdku). Dva Fâdky jsou vâtSinou skryty. 
Objevi se ai po najetf kurzoru do 
zminânâ oblasti. Blikajici kurzor vyme- 
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zuje obtast pro vstup grafickych infor- 
mact — oblast 8x8 bodu. Je to 
v podstatâ bâinâ tiskovâ pozice, kterou 
dâle budeme nazyvat znakovka. 

Kurzorovâ klâvesy mohou plnft jeâtâ 
jednu pomocnou funkci. Pri stisku 
kurzorovâ klâvesy (5, 6, 7, 8) zâroveft 
s klâvesou SYMBOL SHIFT dojde 
k pFekopîrovânf znakovky z mlsta kur¬ 
zoru na vedlejăf pozici urâenou stisknu- 
tou kurzorovou klâvesou. Tato funkce 
nenl v programu nikde uvedena, ani ve 
funkci HELP hlavnf nabfdky. 

Popis povelu EDITORu 

INPUT 

Hlavnf povel, kterym pfenâăime in- 
formace z pfedlohy nâkolika zpusoby. 

Stiskem pouhâ klâvesy „1“ vstou- 
pfme do grafickâho INPUTu. Uprostred 
obrazovky se nâm zobrazf osmkrât 
zvâtâenâ znakovka, na kterâ }e kurzor. 
Oblasti PAPER jsou vyznaâeny znakem 
„O" a oblasti INK tmavou plnou zna- 
kovkou. Pfi invertovanâm obrazu je to 
obrâcenă. V editaâni zânâ *>e objevt 
novâ nabfdka s komentârem. Kurzo- 
rem ve zvâtăenâ znakovce muieme 
pohybovat pomocf kurzorovych ktâves. 
Klâvesou „0“ mănfme pod kurzorem 
obtast z INK na PAPER a obrâcenâ. 
Povel CLS pini dvâ funkce, prostim 
stiskem „C“ se obnovi puvodnf grafickâ 
informace ve znakovce, nebo se sou- 
Casnym stiskem CAPS SHIFT se celâ 
znakovka vymaie. 

Povelem „Q“ — QUIT opouStfme 
zadâvânl na danâ pozici a vracfme se 
butf do editoru, nebo pokraâujeme 
v plnânf znakovky vpravo od souâasnâ 
pozice, âi na dalăfm râdku, pokud jsme 
plnili poslednf tiskovou pozici na pred- 
chozîm râdku. 

Druhou variantu povelu INPUT vyvo- 
lâme stiskem „f* souâasnâ s CAPS 
SHIFT. V tomto pfipadâ budeme 
kaidou tiskovou pozici, na kterâ je 
kurzor, plnit po jednotlivych bajtech 

— osmkrât zadâme hodnotu. Pfi 
vklâdânf jednotlivych hodnot je zobra- 
zena takâ nabfdka variant vklâdânf. 
Muieme totii hodnoty zadâvat ve tfech 
Ciselnych soustavâch, nebo vytisknout 
na pozici kurzoru znak, nebo celou 
pozici vyplnit jednou hodnotou. Mâme 
takâ mrânost se vrâtit k zadâvânf od 
prvntho bajtu. Pfi violent prâzdnâho 
fetâzce ukondenâm ENTER vynechâme 
jeden bajt. Ten zustâvâ nezmânân. 
Takovymto zpusobem je moinâ mânit 
ve znakovce pouze jeden nebo nâkolik 
bajtu. Zpusob zadâvânf urâime prvnfm 
znakem ve vklâdanâm fetâzci. Nabfdka 
tâchto znaku je v prvnfm edita&nfm fâd- 
ku. Nâvrat z tohoto typu povelu je auto- 
maticky. 

Podobnym zpusobem, jako tyto dvâ 
varianty povelu INPUT, pracujf i pro- 
gramy pro vytvâfenf novych znakovych 
souboru (ASCII, UDG), napffklad TY- 
POGRAPH nebo 40 UDG a pod. Nic 
nâm nebrânf pouift program SKICÂK 
i tfmto zpusobem, staCf si uvâdomit, 
kde jsou v pamâti uloăeny jednotlivâ 
obrazovky. Tam by se uktâdaly i novâ 
vytvofenâ znakovâ soubory. Po vytvo- 
renf by je byto nutnâ pfemfstit na 
mfsta v pamâti podle naăeho zâmâru 
a zmânit pffsluânâ systâmovâ promân- 
nâ, pro ASCII promânnou CHARS 

— 23606/7 a pro UDG promânnou 
UDG — 23675/6. 
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MEM 

Funkce usnadftuje prenos a „mnoie- 
nf“ stejnych znakovych pozic na obra- 
zovce. Stiskem klâvesy „M“ se souâas- 
nym CAPS SHIFT zaznamenâme zna- 
kovku pod kurzorem do mezipamâti. 
Vyvolat na pozici kurzoru ji pak muie- 
me kolikrât chceme stiskem klâves „M“ 
a SYMBOL SHIFT. 


DaISi funkce pracujf s celou obrazov- 
kou a jsou urâeny pro upravu vâtSfch 
ââstf nebo celych obrazovek. 

BARVA 

Vyvolânfm aktivujeme novou nabfd- 
ku, kterâ nâm nabfzf tri moinosti. 
Zmânit INK nebo PAPER v celâm 
obraze, nebo celou obrazovku inverto- 
vat — INV. Nâvrat do EDITORu je 
automaticky. 

COPY 

Provede kopii obrazovky na tiskâmâ 
' (ZX PRINŢ a jeho ekvivaienty). Kopfruje 
văak vSech 24 fâdek. 


DEL 

Funkce DELETE je z nejdestruktiv- 
nâjăfch. Mâ dvâ podoby. Prvnf, vyvo- 
lâvanâ stiskem klâves „D“ souâasnâ 
s CAPS SHIFT, ma2e oblast Display 
file, tj. oblast pamâti, kterâ urâuje, kde 
je INK a kde PAPER (prvnfch 6144 
bajtO obrazovky). Druhâ, aktivovanâ 
stiskem klâves „D“ a „SYMBOL 
SHIFT, maie oblast atributâ, tj. oblast, 
kterâ urâuje barvy a dalâf vtastnosti 
znakovych pozic (postednfch 768 bajtu 
obrazovky). 

EXCH — EXCHANGE 

Povel, ktery umoiftuje zmânu pra- 
covnf obrazovky. 

NEW 

NejdestruktivnâjSf, stiskem klâvesy 
„N“ souâasnâ s CAPS SHIFT se ma2e 
celâ pracovnf obrazovka. 

OVER 

Tato funkce smichâ obsahy dvou 
obrazovek — pracovnf se zvolenou. 





znakovkâch posouvâ obiast atributu. 
Ve vâech pfîpadech jde o tzv. destruk- 
tivnf scroll, to znamenâ, ie co je mimo 
obrazovku, je vymazâno. 

Funkce spolu s povelem OVER nâm 
dovoff pfesnâ rozmistit a zkombinovat 
vytvofenâ dfla. 


obrazovkami od adresy 60 736. Jsou to 
asi 4kB pamdti, kterâ raohou byt 
vyuitty pro datSI rozSffenf a vyiepSeni 
programu. Pro roziffenf basicovâho 
program u neni jii mişto. Pro jeho 
sprâvnou funkci je nutnâ vypustit po- 
znâmky v râdcfch REM. 



do editacn»— 


/ vyvolej / 

'cety obraz / 331 2 


r test^s 
klâveşy 


f zmen INK 
na PAPER 


/ tiskni 
f znak , 

'za % j 


/urcem' typuJ 
f hodnoty I 
tisk bajtu / 


/ 2 * scrolluj I 

fe^ri/ 2 -^ 3190 

a tisk. nobid./ G0SuB 3232 


^ test ^ 
klâvesy 


zvetsi • 
pocitadlo 


editocni' 


^test > 
klâvesy 


/ vyvolej / 

fcely obraz /GOSUB 3312 


f tiskni 
navrzenou 
znaWovku 


tiskni / 

nabidku / GOSUB 3232 


I tiskni novou 
polohu kurzoru 


Popis struktury a funkce 
programu 


Funkce nâvratu do hiavni nabidky. 


Po aktivaci stiskem klâvesy „R“ mu- 
ieme pomocf kurzorovych klâves po- 
hybovat obrazovkou do v§ech smâru 
a to tfemi zpusoby. Samotnym stiskem 
năkterâ kurzorovâ klâvesy se posouvâ 
(scroîluje) display fite po jednom bodu. 
Se soudasnym stiskem CAPS SHIFT se 
posouvâ dispiay file danym smârem, 
ale po jednom znaku (oşmi bodech). 
Pfi stisku se SYMBOL SHIFT se po 


Uleienf v pamâti 

Program Skicâk je v pamdti poCftaCe 
uloien ve tfech Câstech — basicovy 
program, strojovâ rutiny a pamăf obra- 
zovek, viastnâ date programu. Uloienf 
jednotlivych Câstf je patmâ z obr. 1. 
Podstatnou 6âst pamâti zabirâ Basico¬ 
vy program, podporovany ve svâ funkci 
rutinami ve strojovâm k6du, kterâ jsou 
umistâny na konci pamâti pfed UDQ. 
Obrazovky jsou uloăeny tâsnâ za basi- 
covym programam asi uprostfed pa- 
mâti RAM. Jedinâ vofnâ pamăf je za 


Struktura a funkce j 

programu f 

FunkCni diagramy programu Skicâk 
jsou na str. 62, kde je Câst hlavnf 
nabidky a na str. 63, kde je popsâna 
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struânâ funkce EDtTORu. V diagra- 
mech jsou orientaânâ uvedena 6lsla 
râdkQ. Program Skicâk nahrajeme 
s autostartem od Fâdky 6000 a strojovy 
kâd ulozlme na pâsku za năj. V Fâdcfch 
od 7000 je v programu uloiena infor- 
mace o rozmfstânl âeskych znaku 
v UDG. 

Struktura a kinkce EDITORu 

EDITOR — funkce „1“ hlavnf nabfdky 

— je ulozen mezi râdky 2800 a 5000. 
Jeho grafickâ schâma je na str. 63. 
Jednâ se o podobnou strukturu, jako 
v prlpadâ hlavnf nabldky, je zde ale 
i nejsloiitâjăl problâm programu 

— pohyb kurzoru po obrazovce 
a vyhodnocenf jeho pozic v prfpadâ 
prâce na nejniiălch dvou Fâdcfch obra- 
zovky. To văe mâ za ukol podprogram 
od Fâdku 3408, ktery je opakovană 
volân po testu klâvesnice na volany 
povel. DalSf, vnoFenâ podprogramy 
tohoto podprogramu, jsou vyuilvâny 
takâ nâkterymi funkcemi editoru (IN- 
PUT a MEM). 


Pop» pouiitych strojovych rutin, 
rutin v ROM a neobvyktych vlastnostf 
BASICu. 

Rutiny strojovâho k6du zaâfnajf od 
adresy 64 599. Prvnf je rutina COPY 

— 24 Fâdku, vyuifvâ podprogramu 
ROM 3762. DalSf rutina uilvâ povel 
ROLL pro posuv display file o znak dolu 

— 64609. Rutina 64682 posouvâ obâ 
Câsti obrazovky o znak dolu. Nâsiedu- 
jfcfch sedm rutin je poui it o ze zn â m âho 
programu SUPERCODE. Prvnf dvâ 
(64744 a 64756) slouif pro pFenesenf 
obsahu viditelnâ obrazovky do pracov- 
nf pamâti a naopak. Tyto rutiny vyuii'va- 
jf skoro vSechny povefy a funkce 
programu. Rutiny 64784 a 64828 ne- 
jsou vyuiity, zustaly v pamâti po upra- 
vâch pFedchozich pracovnfch verzi. 
Prvnf vymânf obsahy obrazovky a pra- 
covni pamâti a druhâ naplnf urCeny 
obdâlnfk v obrazovce jednfm znakem. 
Nâstedujfcf tfi podprogramy pouiivâ 
funkce BARVA. 64858 mâni INK 
v celâm obraze, 64883 mâni PAPER 
v celâm obraze a 64809 provede înverzi 
obrazovky. Pak nâsleduje rutina funkce 
OVER — 64914 a za nf rutiny pro funkci 
ROLL. 64935 posune Display file o znak 
vlevo, 64956 vpravo, 64978 posune 
Display file o bod vlevo, 64995 o bod 
vpravo, 65012 o bod nahoru a 65168 
o bod dolu. Posuv atributO Ffdf rutiny 

— 65103 vlevo, 65125 vpravo a 65147 
nahoru. 

DalSf rutiny jsou pro mazânf jednotli- 
vych oblastf obrazovky — 653% maie 
atributy a 65342 maie Display file. Od 
adresy 65368 zaCInâ uiivatelskâ grafika 
se znaky âeskâ abecedy (viz Fâdek 
7000). 

Program pouilvâ ve svâ funkci nejen 
tâchto rutin, ale i nâkterâ programy 
ROM a zmâny systâmovych promăn- 
nych, ale takâ v manuâlu nepopsanâ 
funkce Basicu pro tisk v editaSnf z6nâ 
(Fâdek 3236). Pro mazânf editaCnl z6ny 
volâ rutinu 3438, pro zmânu barvy 
editaSnf z6ny mâni systâmovou pro- 
mfennou BORDCR — 23624, pro zmânu 
poStu editaCnfch Fâdku mânf systâmo¬ 
vou promânnou DF—SZ — 23659 a pro 
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scroll obrazovky nahoru o Fâdek volâ 
rutiny 3190 riebo 3582. 

Nâmâty pro datSf vytepâenf 
a rozSffenf programu Skicâk 

Kaidy program, tak jako jinâ jc lila 
lidskâho inteiektu a rukou, je moinâ 
dotvoFit — zlepăit, zjednoduăit a „po- 
lidătit". Program SKICÂK v. 1.0 nenf 
v tomto ohledu iâdnâ vyjfmka, zdâ se 
mi, ie spfSe naopak. Mym prapuvod- 
nfm cflem bylo dovâst program k jakâs 
takâs dokonalosti vytvoFenfm grafic- 
kâho editoru typu GEM a ovlâdat jej 
joystickem, mySf nebo svâtelnym pe- 
rem. OvSem Clovăk mfnf a vâci se mănl. 
Objevil se program ART STUDIO a tak 
jsem skromnâ ustoupil a zjednoduSil 
svOj progrâmek tak, aby byl i vedle 
tohoto „ve!ikâna u uiitedny a ales port 
fiâsteânâ doplnil nâkterâ jeho funkce. 
Râd bych vSak v tâto Câsti upozornil na 
jistâ slabiny a rezervy programu. 
V prvnf Fadâ postrâdâ mfsto pro rozSf- 
Fenf BASICu. To by se dalo FeSit bucF 
posunutfm obrazovek smărem ke konci 
pamâti, anebo vyuiitfm prâzdnâho mf- 
sta nad nimi a pFevedenfm nâkterâ 
5âsti BASICu do strojovâho kâdu, na- 
pFfklad Ffzenf kurzoru. BASIC takâ 
muieme mfrnâ „zahustit" upravou jeho 
struktury — vypuătânfm poznâmek, 
nebo vytvoFenfm podprogramu pFi 
nâkofikerâm opakovânf operacf (viz 
Fâdky 114,116,118 — test klâvesnice). 
Tak# zmenSenf poâtu Fâdku a vyuiitf 
funkce VAL pro uklâdânf celoâfselnych 


promânnych by uvolnilo nâjaky pro- 
stor. Ve funkci se dâ program zdokona- 
lit pFedevSfm v prâci s barvami. Zvoleny 
tisk kurzoru (transparentnf obarvertl 
INK8, PAPER8 na Fâdcfch 3432 ai 
3448) se projevf zejmâna pFi zpraco- 
vâvânf obrazovek s mnohobarevnymi, 
btikajfcfmi a zduraznânymi plochami; 
kurzoF nâm bude na viditefnâ obrazov¬ 
ce v tâchto mfstech ruSit FLASH 
a BRIGHT. PFi nejbliiSfm datSfm vyvo- 
lânf obrazu z pamâti se vSak obraz 
obnovf v puvodnfm stavu. Zde by bylo 
vhodnâ program zdokonalit tak, aby 
testoval hodnoty barev pFed umfstânfm 
kurzoru a navracel je do puvodniho 
stavu po jeho daISfm pohybu. Rovnâi 
by stâlo za to doplnit program vhodnou 
rutinou pro obsiouienf chyb a pFeruSe- 
nf, tâ by se dalo vyuift i pFi nâvratu 
z jednotfivych funkci a do htavnf nabld¬ 
ky. Odpadly by tak testy klâvesy „0“. 

*** s fc i c â k ui .0 *** 


1 - EDITOR 
a - LIST 
3 - LORD 
4. - SRUE 
5 - HELP 


*** dan Krejfcx *** 
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1 REM * PROGRAM SKICRK * 

2 POKE 23624,56: CLS 

3 DIM W(8): LET 02=156: LET R 
AM=40000 

4 LET X1=0: LET yi=0: LET zve 
=0: LET rOP=0: LET Sk=0: LET S$= 

LET 01=64: LET POT=0: LET X = 
O- LET y=0: LET kurz=22528+X+y*3 
2: LET atr=RTTR (x,y) 

5 REM *»enut _ 

6 CLS : PRINŢ RT 7,10;“1 - ED 

JTQp" 

15 PRINŢ RT 0,10;"2 - LIST" 

16 PRINŢ RT 11,10;"3 - LORD 

17 PRINŢ RT 13,10;"4 - SAUE 

18 PRINŢ RT 2,4;"*** S k i C â 

k, 01.0 ***" 

19 PRINŢ «l;RT 0,12;"© 1986" 

20 PRINŢ RT 20,6;"*** Uan Krej 

21*PRINT RT 15,10;"5 - HELP" 

22 PLOT 27,27: DRRU 0,115: DRR 
U 199,0: DRRU 0,-115: DRRU -199, 
0 

30 IF INKEY*=“1" THEN GO TO 28 

00 

32 IF INKEY*="3" THEN GO SUB 3 
268: GO TO 6 

34 IF INKEY*="4" THEN GO SUB 3 
256: GO TO 6 

36 IF INKEY*="2" THEN GO TO 10 

0 

38 IF INKEY*="5" THEN GO TO 50 

00 

40 60 TO 30 
100 REM LIST 

114 LET 02=156: LET Raa=40000: 
60 SUB 3312: PRINŢ FLRSH 1; BRIG 
HT 1;RT 4,28;"1": PRUSE 0: IF IN 
KEY*="q" OR INKEY*=“0" THEN GO T 
O 2 

116 LET 02=183: LET Raa=46912: 
GO SUB 3312: PRINŢ FLASH 1; BRIG 
HT 1; RT 4,28; "2": PRUSE 0: IF IN 
KEY$*“q" OR INKEY*="G" THEN GO T 
O 2 

118 'fcET 02=210: LET Ra*=53824: 
GO SUB 3312: PRINŢ FLRSH 1; BRIG 
HT 1; RT 4,28; "3": PRUSE 0: IF IN 
KEYS=“q" OR INKEY*="O" THEN GO T 
O 2 

120 GO TO 114 
2800 REM EDITOR 
2810 CLS : GO SUB 3364 
2820 GO SUB 3232 
2830 GO SUB 3600 

2840 IF INKEY*=”I" THEN GO TO 30 
00: LET X =x +1 

2844 IF INKEY*="r" THEN GO SUB 3 

_620: GO TO 2620 

2848 IF INKEY*=" i" THEN GO TO 40 
00: LET X=X *1 

2850 IF INKEY*=“0" THEN GO SUB 3 
384 

2855 IF INKEY*VC" THEN GO SUB 3 
312: RRNDOMIZE USR 64599: GO SUB 
3308: GO SUB 3232 
2860 IF INKEY* = "e" THEN GO SUB 3 
364: GO SUB 3232 

2864 IF INKEY*="H" THEN GO SUB 3 
800 

2868 IF INKEY*="." THEN GO SUB 3 
810 

2870 IF INKEY*="b" THEN GO SUB 3 
320 

2880 IF INKEY*=*’N" THEN GO SUB 3 
404 , 

2882 IF INKEY*=CHR* 205 THEN 60 
SUB 3312: RRNDOMIZE USR 65326: G 
O SUB 3308: GO SUB 3232 
2884 IF INKEY*="D" THEN GO SUB 3 
312: RRNDOMIZE USR 65342: GO 5UB 
3308: GO SUB 3232 
2890 IF INKEY*="q" THEN GO TO 1 
2900 IF INKEY*="(" THEN LET fcaa = 
1: GO SUB 3524: GO SUB 3460: GO 
SUB 3500 

2910 IF INKEY*=">4" THEN LET kaa = 
-1: GO SUB 3532: GO SUB 3460: GO 
SUB 3500 

2920 IF INKEY$="&" THEN LET kaa = 
32: GO SUB 3460: GO SUB 3480: GO 
SUB 3540: GO SUB 3S00: IF zve=l 
THEN LET y=21: LET rop=0: GO SU 
B 3312: GO SUB 3232: LET z\e=0 
2930 IF INKEY* = " " THEN GO SUB 3 
492: LET kaa=-32: GO SUB 3460: G 
O SUB 3516: GO SUB 3500 
2940 GO SUB 3408: GO TO 2830 
3000 REM Bnput 
3002 GO SUB 3460 
3004 FOR i=0 TO 1792 STEP 256 
3008 BEEP 0.05,1/256 v _ 

3012 INPUT RT 0,2; “Rap ;f5-hex; B 
in;H-znak;Stop";RT 1,2; "zadâvai 
byta £. "; Ci/256+1);RT 1,21; LIN 
E s* 

3016 IF S*=”S“ OR S$="S" THEN LE 
T i=0: GO TO 3000 
3020 IF £*=”" THEN GO TO 3060 
3024 IF S*(1)="Z" OR S*(1)="Z" T 
HEN GO SUB 3116: GO TO 3064 
3028 IF S*(l)="tt" THEN GO SUB 32 
08: GO TO 3052 

3032 IF s*(l)="*" THEN PRINŢ RT 
y+(l ANO por=l) + (2 RND por=2),x; 
S-* (2) : LET kaa=0: GO SUB 3460: G 
O SUB 3500: GO TO 3064 
3036 IF S * (1) =“B“ OR S*(l)="b- T 
HEN GO SUB 3200: GO TO 3052 
3040 IF CODE St>=58 OR CODE S*< = 
47 THEN PRINŢ ttl;RT 0 ,i;"Spatne 
zapsany znak !!!": BEEP 0.8,20: 
GO TO 3012 

3044 IF URL S$ >255 THEN PRINŢ «1 


;RT 0,l;"Priti* velke Cislo !M" 

: BEEP 0.2,24: BEEP 0.4,20: GO T 
O 3012 

3048 LET wej=URL S* 

3052 IF we,j>255 THEN.PRINŢ ttl;RT 
0,1; Pfilîl ve LK6 Cislo !!!": B 
EEP 0.8,20: GO TO 3012 
3056 POKE 16384+abc+x + (y+por-yy) 
*32+i,we j: POKE Raa*abc+x + (y+por 
+rop-yy)*32 + i,«ej 
3060 NEXT i 

3064 FOR U =0 TO 8: BEEP 0.02,4+U 
: NEXT o: PRUSE 0.5 
3068 PRINŢ #1;RT 0,l;"Pozice tur 
zoru x=";x;" y=";y+por 
3072 PRINŢ #1;RT 1,1;"Chcei POkr 
afovat v zipisu R/N 7" 

3076 IF INKEY*=“n" THEN RRNDOMIZ 
E USR 3438: BEEP 0.08,3: BEEP 0. 
09,10: GO TO 2820 

3080 IF INKEY* = "a" THEN GO SUB 3 
100: GO TO 3092 
3084 GO TO 3072 
3038 LET x=x+l 

3092 FOR w=8 TO 0 STEP -1: BEEP 
0.01,RND*10-W: NEXT m 
3098 PRINŢ BRIGHT 1; FLRSH 1; OU 
ER l; PAPER 8; INK 8;AT y+st+por 
,X;" ": PRINŢ OUER 1; INK 8; PAP 
ER 8; RT y+sk+por-(l RND x=0)-(21 
RND X =31 RND y=21) , X -1+(32 RND 
X =0)-(21 RND X =31 RND y=21);" ": 
GO TO 3004 

3100 IF x=31 RND por=2 THEN LET 
X =0: LET y=0: LET fOP=0: LET por 
=0: LET a bc =0: LET yy=0: 60 SUB 
3312: GO SUB 3232: RETURN 
3104 IF x =31 RND y+rop>=21 THEN 
LET x =0: GO SUB 3284 : RETURN 
3108 IF x=31 RND y*rop<21 THEN L 
ET x =0: LET y=y+l: RETURN 
3112 GO TO 3088 

3116 IF S*(2 TO )=“" THEN RETURN 

3118 IF URL S*(2 TO ) >255 THEN R 
ETURN 

3120 FOR e =0 TO 1792 STEP 256 
3124 POKE 163S4+abC+X+ (y+P0r-yy) 
*32+e,URL s*(2 TO ) . POKE Raa+ab 
c+x + (y+por+rop-yy) *32+e ,URL s*(2 
TO ) 

3128 NEXT e: RETURN 
3200 LET wej=URL ("BIN "+S*(2 TO 
LEN S*) ) 

3204 PRINŢ #1;RT 0,1;" Deciaitnă 
" ; we j: PRUSE 20: RETURN 
3208 LET «ej=0: LET kruh=0 
3212 FOR W=LEN S* TO 2 STEP -1 
3216 LET «ej=wej +((CODE S*(w)-48 
-7* (CODE s*(w)>=65)) *16tkruh) 
3220 LET kruh=kruh+l 
3224 NEXT W 
3228 RETURN 

3232 POKE 23624,112: RRNDOMIZE U 
SR 3438 _ „ 

3236 PRINŢ #1;RT 0,0;" BARUR:HOP 

Y : BEL : SXCH : BNPUT : BEU : " 

â 238 PRINŢ 81;AT 1,0;" HEM:BUER: 

UIT:BOLL:" 

3240 RETURN 

3244 IF por=0 THEN RETURN 
3248 BEEP 0.01,32: IF por=l THEN 
LET saer=0: LET por=0: LET y=21 
: LET rop=0: GO SUB 3312: GO SUB 
3232: GO TO 2830 

3252 IF por=2 THEN LET P0T=1: LE 
T sner =3: RETURN 

3258 CLS : INPUT "nizev obrizku 
"; LINE z* 

3260 GO SUB 3364: POKE 23736,187 
: 5RUE ZtCODE Raa,6912 
3261 CLS : PRINŢ RT 10,3;"Chcete 
zkontroiovat fi/N ?" 

3262 IF INKEY*="n" THEN GO TO 32 
65 

3263 IF INKEY*="a" OR INKEY*="fl" 
THEN GO SUB 3312: UERIFY Z*CODE 
Ran: CLS : PRINŢ RT 10,10;“Dodr 
y M": BEEP 0.2,33: PRUSE 4: GO 
TO 3265 

3264 GO TO 3262 
3265 RETURN 

f 269 CLS : GO SUB 3364: INPUT "n 
zev nahrăvky "; LINE x* 

3270 CLS : PRINŢ RT 10,6;"Nahrâv 
i se obrâzek" 

3272 LORD X*SCREEN* 

3276 GO SUB 3308 

3280 RETURN _ 

3284 IF y <21 RND por=0 THEN RETU 
RN 

3288 IF por=0 THEN LET por=l: GO 
SUB 3548: GO TO 3296 
3292 IF por =1 THEN LET por=2 
3296 LET y*19: LET rop=2: PRINŢ 
81;RT 1,26;"y=";y+por+rop;" " 
3300 BEEP 0.01,30: LET saer=2 
3304 RETURN 
3307 REM zaznaa 

3308 POKE 64745,01: POKE 64746,0 
2: RRNDOMIZE USR 64744: RETURN 
3310 REM ukaz 

3312 POKE 64757,01: POKE 64758,0 
2: RRNDOMIZE USR 64756: RETURN 
3315 REM vyaen 

3316 POKE 64785,01: POKE 64786,0 
2: RRNDOMIZE USR 64784: RETURN 
3318 REM BRRUfl 

3320 RRNDOMIZE USR 3438: PRINŢ 8 
1;RT 0,1;"Zvolte stiskea Cisia": 
PRINŢ 81;RT 1,1;"1 = INV ; 2 = 

TMK 'X - PflPFR" 

3324*IF INKEY*="1" THEN GO TO 33 
48 

3328 IF INKEY*="2" THEN GO TO 33 


3332 IF INKEY*="3" THEN GO TO 33 
44 

3336 GO TO 3324 

3340 INPUT "Cislo inkoustu ";ink 
: POKE 64859,ink: GO SUB 3312: R 
RNDOMIZE USR 64858: GO SUB 3308: - 
GO SUB 4860: GO TO 2820 
3344 INPUT "Ci sto papiru ";pap; 
POKE 64884,pap: GO SUB 3312: RRN 
DOMIZE USR 64883: GO SUB 3308: G 
O SUB 4860: GO TO 2820 
3348 GO SUB 3312: RRNDOMIZE USR 
64809: GO SUB 3308: GO SUB 4860: 
GO TO 2820 

3352 IF po r =1 THEN RRNDOMIZE USR 
3190: PRINŢ OUER 1;AT 21,0;" 

3356 IF por=2 THEN RRNDOMIZE USR 
3190: PRINŢ OUER 1;AT 21,0;" 

RRNDOMIZE USR 3190: PRINŢ OUER 1 
; RT 21,0;"_ 

3360 GO SUB 3232: RETURN 

3363 REM SXCH 

3364 INPUT "Cislo paa6ti?(l-3) " 

; Ro« 

3368 IF Roa=l THEN LET 02=156: L 
ET Raa=40000 

3372 IF Roa=2 THEN LET 02=183: L 
ET Raa=46912 

3376 IF R0a=3 THEN LET 02=210: L 
ET Raa=53824 

3380 GO SUB 3312: GO SUB 3352: R 
ETURN 

3383 REM HUER 

3384 INPUT "Cislo paaiti(1-3) - 
";aer: POKE 64919,64 

3388 IF ae r=1 THEN POKE 64920.15 
6 

3392 IF aer=2 THEN POKE 64920,18 
3 

3396 IF aer=3 THEN POKE 64920,21 
0 

3400 GO SUB 3312: RRNDOMIZE USR 
64915: GO SUB 3308: GO SUB 3352: 
GO SUB 3232: RETURN 

3403 REM BEU 

3404 POKE 23624,a t r: CLS : GO SU 
B 3308: GO SUB 3232: RETURN 

3408 REM rizeni kurzoru 

3409 LET nast=l 
3412 LET saer =0 

3416 IF INKEY*="5" THEN BEEP 0.0 
03,X *10: IF X >0 THEN LET saer = l : 

LET X =X-1: LET nast=l: GO TO 34 
32 

3420 IF INKEY*=“6" THEN GO SUB 3 
284: BEEP 0.003,y +10: IF y<21 RN 
D por =0 THEN LET saer=2: LET y=u 
+1: LET nast=l: GO TO 3432 
3424 IF INKEY*=”7" THEN GO SUB 3 
244: BEEP 8.003,y*10: IF y>0 RND' 
por*0 THEN LET y*y-l: LET saer= 
3: LET nastsl: GO TO 3432 
3428 IF INKEY*="8" THEN BEEP 0.0 
03,X *10: IF X <31 THEN LET saer=4 
: LET X =X + 1: LET nast=l: GO TO 3 
432 

3432 IF nast=l THEN PRINŢ BRIGHT 
l; FLASH l; OUER 1; PAPER 8; IN 
K 8;AT y+sk+por,x;" " 

3436 IF saer=l THEN PRINŢ OUER 1 
; PAPER 8; INK 8;AT y*sk+Por,x+l 

3440 IF saer=2 THEN PRINŢ OUER 1 
; PAPER 8; INK 8;RT y+por-l+sfc,x 

3444 IF saer*3 THEN PRINŢ OUER 1 
; PAPER 8; INK 8;RT y+l+por+sk,x 

3448 IF saer=4 THEN PRINŢ OUER 1 
; PAPER 8; INK 8;flT y+por+sk,x-l 

3452 LET sk=0: LET nast=0 
3456 RETURN 

3460 LET cba=0: LET yyy=0 
3464 IF y <=7 THEN LET abc=0: LET 
yy=0: RETURN 

3468 IF y >7 AND y<=15 THEN LET a 
bc =2048: LET yy=8: RETURN 
3472 IF y >15 AND y<=23 THEN LET 
a bc =4096: LET yy = 16: RETURN 
3476 RETURN 

3480 IF por=2 THEN BEEP 0.02,25: 

BEEP 0.03,30: GO TO 2830 
3484 IF y=7 OR y=15 THEN LET kaa 
=0: LET Cbâ=2048: LET yyy=7: RET 
URN 

3488 RETURN _ _ _ 

3492 IF y=0 THEN BEEP 0.02,23: B 
EEP 0.03,33: GO TO 2940 
3496 RETURN „ _ 

3500 LET vpr=0: FOR i=0 TO 1792 
STEP 256: BEEP 0.002,30 
3504 LET vpr*PEEK (16384+abc*x+( 
y+por-yy)*32+î) 

3508 POKE 16364+abc+cba+x*kaa+(y 
*por-yy-yyy)*32+i,vpr: POKE Raa* 
abc +cba+x+kaa + (y +por +rop-yy-yyy > 
*32+i,vpr 

3512 NEXT i: RETURN ^ „ 

3516 IF y=8 OR y=16 THEN LET taa 
=0: LET cba=-2048: LET yyy=-7 

iilt I^xaSl RND por =2 THEN BEEP 
0.01,30: BEEP 0.01,34: trO TO 29 
40 
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3523 RETURN 

3533 IF X=0 THEN BEEP 0.01.35: B 
EEP 0.02,36: GO TO 29*0 
3536 RETURN 

35*0 IF y=21 AND POT =0 TMEN GO S 
UB 35*8: LET rop*2: LET y=19: LE 
T S»er=3: LET n»St*l: GO SUB 3*3 
3: LET zve al . RETURN 
35**» RETURN 

35*8 POKE 3362*.58: CLS : GO SUB 
3313: POKE 23659,0: RRNDOMIZE U 
SR 3583: RRNDOMIZE USR 3583: POK 
E 23659,2: POKE 2362*,113: GO SU 
B 3232: RETURN 

3600 PRINŢ 81;RT 1,31;"X*";x;" ” 
3602 PRINŢ #1;RT 1,26,"y;y+por 
+rop;“ ” 

360* RETURN 
3620 REM SOLL 

3623 GO SUB 3312: POKE 2362*,56: 

GO SUB 36*0: GO SUB 3308 
362* IF por=l OR por =2 THEN RRND 
OMIZE USR 3190: RRNDOMIZE USR 31 
90 

3628 RETURN 

36*2 LET a*=INKEY* 

36** LET n x (65103 RND a>$ a"X") + (6 
5125 RND a*s"(")+(651*7 RND a*»” 
'*•> + (6*682 RND a**"*." )♦ (65258 RN 
D a S=CHR* 11)+(6*609 RND a*=CHR« 
10)+(6*935 RND a*=CHR$ 8)+(6*95 
6 RND a*=CHR* 9)+(6*978 RND *$ = " 
5")+(6*995 RND a*="8")+<65012 RN 
D a*="7“)+(65168 RND a$=“6") 

36*6 IF a$="Q" THEN GO SUB 3312: 
GO TO 2820 

38*8 IF a»="q" THEN RETURN 
3650 IF n < >0 THEN BEEP 0.001,30: 

RRNDOMIZE USR n 
3652 GO TO 36*0 

3800 REM BEM ta» 

3801 GO SUB 3*6*: LET sv = l 

3802 FOR i=0 TO 1792 STEP 256: B 
EEP 0.002,30 

380* LET «HSV >=PEEK (1638*+abC+X 
+ (y+por-yy ) *32+i) : LET sv=sv+l 
3808 NEXTi: RETURN 

3810 REM BBEM yen 

3811 GO SUB 3*60: LET SVal 

3812 FOR i=0 TO 1792 STEP 258: B 
EEP 0.002,30 

381* POKE 1638*+abC+cba+x + (y+P 0 r 
-yy-yyy)*32+i,w(sv): pqke Ra»+ab 
c+cba+x + (y+por+rop-yy-yyy) *32+i , 
m (sv> 

3816 LET SVsSV+1 
3818 NEXT i: RETURN 
*000 REM BNPUT 

*001 BEEP 0•03,*0: BEEP 0.0*,20 
*002 LET XZ=1: LET yz=l. LET a»5 
. LET b = li 

*003 POKE 2362*. 112: RRNDOMIZE l> 
SR 3*38: PRINŢ »1;RT l,6;"lLS:BU 

*00* PRINŢ 81;RT 0,2;"Ovlâdânx k 
lavesami 5 6 7 8 0" 

*006 GO SUB 3600 
*010 DIM f*(8,8 

*018 PLOT 95,63: DRRU 0,65: DRRU 
65,0: DRRU 0,-65: DRRU -65,0 
*020 PLOT 9*.62: DRRU 0,67: DRRU 
67,0: DRRU 0,-67: DRRU -67,0 
*030 PLOT 93,61: DRRU 0,69: DRRU 
69,0: DRRU 0,-69: DRRU -69,0 
*032 PLOT OUER 0;95,63: DRRU OUE 
R 1;0,65: DRRU OUER l;65,0: DRRU 
OUER l;0,-65; DRRU OUER l;-65,0 
*03* FOR i*l TO 8: PRINŢ RT »+i, 
b+1; PAPER 5; BRIGHT 1; " 

”: NEXT i 

*0*0 GO SUB 3*6*: LET i>l 
*0** FOR j=0 TO 1792 STEP 256 
*050 LET ppsPEEK (R»»+abC+X+(y+P 
or+rop-yy)*32+j) 

*060 LET f*(i ,1)sSTR* (pp-128>=0 

*070 IF pp-128>«0 THEN LET pp*pp 
-128 

*080 LET f*(i ,2)=STR# (pp-6*>=0) 
*090 IF PP —6* > =0 THEN LET ppapp- 

*100 LET f * (i ,3) sSTR* (pp-32>»0> 
*110 IF PP~32>=0 THEN LET PP*PP- 
32 

*120 LET f*(i,*)sSTR* (PP-16>=0) 
*130 IF PP-16 > «O THEN LET ppspp- 
16 

*1*0 LET f*(i,5)aSTR* (pp -8 > *0) 
*150 IF pp~8>=0 THEN LET ppapp-8 
*160 LET f $ (i., 6) aSTR* <pp-*>aO) 
*170 IF PP —* > =0 THEN LET ppcpp-* 
*180 LET f *(i,7)=STR# (pp-2>=0) 
*190 IF pp-2>*0 THEN LET ppapp-2 
*200 LET f*(i,8)=STR* <pp-l>=0) 
*210 PRINŢ RT a+i,b+1; PAPER 5; 
INK l; BRIGHT 1;CHR* (79+64*(f*( 
i,1) = "1”));CHR* (79+6**(f $(i,2)a 
"1"));CHR* (79+64*( f * ( i,3)*"1")) 

;CHR* (79+6**(f*(i,*)= "1"));CHR* 
<79+6** ( f * (i ,5) a" 1**) ) ; CHR* (79+ 
6**(f*(i,6)*" 1" >);CHR* (79+6**(f 
*(i,7)= "1"));CHR* (79+6**(f *(i,8 
) a” 1*') ) 

*212 LET iai+l 

*220 NEXT j 

*230 LET C*aINKEY* 

*235 IF C* = "C" THEN GO TO *000 
*236 IF Ct*”C" THEN BEEP 0.02,30 
: BEEP 0.03,*0: LET S*="0000": Q 
O SUB 3118: GO TO *002 
*2*0 IF C*="5" THEN BEEP 0.01,XZ 
+ l*yz+l: IF XZ >1 THEN LET XZ*XZ- 
1: LET sal: LET no*l: GO TO *310 


*250 IF c *="&" THEN BEEP 0.01.XZ 
+l*l+yz; IF yz<8 THEN LET yz*yz + 
1: LET Sa2: LET no = l: GO TO *310 
*260 IF c*a”7“ THEN BEEP 0.01,XZ 
+ l*l+yz: IF yz >1 THEN LET yzayz-, 
1: LET S=3: LET no*l: 60 TO *310 
*270 IF C*a*’8 " THEN BEEP 0.01,XZ 
+ l*yZ +1: IF XZ <8 THEN LET XZaxz + 
1: LET Sa*: LET no»l: GO TO *310 
*280 IF C*="0" THEN BEEP 0.04,30 
: GO SUB *380 

*290 IF C*s‘q" THEN GO TO *800 
*300 GO TO *350 

*310 IF sal THEN PRINŢ OUER 1; P 
RPER 5; INK l; BRIGHT 1;RT a+yz, 
b+XZ+1;" " 

*320 IF sa2 THEN PRINŢ OUER 1; P 
RPER S; INK 1, BRIGHT 1;AT a+yz- 
1, b+xz;” “ 

*330 IF S*3 THEN PRINŢ OUER 1; P 
RPER 5; INK 1; BRIGHT 1;AT a+yz+ 
l,b+xz;” " 

*3*0 IF sa* THEN PRINŢ OUER 1; P 
RPER 5; INK 1; BRIGHT l;AT a+yz, 
b+xz-1;” 

*350 PRINŢ OUER 1;RT a+yz,b+xz; 
FLRSH i; BRIGHT 1; ” 

*370 GO TO *230 

*380 LET d*=SCREEN* (a+yz,b+XZ) 
*390 IF d*a”0“ THEN PRINŢ RT a+y 
Z , b >XZ ; : LET f* (yz,XZ) s“l" : R 

ETURN 

**00 IF d*=“ “ THEN PRINŢ RT a+y 
Z,b+xz;"O": LET f*(yz,XZ)="0": R 
ETURN 

*802 GO SUB 3*60: LET ial 
*808 FOR j *0 TO 1792 STEP 256 
*812 POKE Ra»+abc+cba+x+(y+por+r 
op-yy-yyy) *32 + j ,UAL C’BIN "+f*(i 
) ) 

*816 BEEP 0.02,4+i; LET iai+l 
*818 NeXT j 

*820 RRNDOMIZE USR 3*38: PRINŢ # 
1;RT 0,l;"Pozice kurzoru x*"; 
x; ’• y ="; y +po r 

*82* PRINŢ »1;RT 1,1;"Chcei POkr 
afeovat v zapisu A/N 7“ 

*826 IF INK£Y*a"n" THEN BEEP 0.0 
8,3. BEEP 0.09,10: GO SUB 4360: 

60 TO 2820 

*828 IF INKEYt*"a“ THEN GO SUB * 
8*0: GO TO *83* 

*830 GO TO *826 
*832 LET x *X +1 

4-83* FOR W=8 TO 0 STEP -1: BEEP 
0.01,RND*10-w: NEXT w 
*835 GO SUB *860 

*836 PRINŢ BRIGHT 1; FLRSH ti OU 
ER 1; PAPER 8; INK 8;AT y+sk+por 
, X;" ": PRINŢ OUER 1; INK 8; PAP 
ER 8;RT y+sk+por-(l RND xa0)-(21 
RND Xa31 RND y=21),X-1+(32 RND 
X s0) — (21 RND x =31 RND yaai);" " : 
GO TO *002 

*8*0 IF X*31 RND POr*2 THEN LET 
X *0: LET y =0: LET rop*0: LET por 
=0. LET abc =0: LET yu=0: GO SUB 
3312: GO SUB 3232: RETURN 
*8** IF xa31 RND y+ roP > =21 THEN 
LET X=0: GO SUB 328*: RETURN 
*8*8 IF x*31 RND y + T0P<21 THEN L 
ET x =0: LET y=y+l: RETURN 
*850 GO TO *832 

*360 GO SUB 3312: POKE 2362*.PEE 
K (Ra»+6200) 

*86* IF POral OR pora2 THEN RRND 
OMIZE USR 3190: RRNDOMIZE USR 31 
90 

*865 RETURN 
5000 REM HELP 
5002 CLS 

5010 PRINŢ '"9RRUA: - zafena bare 

vntfch pante- tru v ceife 

obrazovce." _ 

5020 PRINŢ "80PY - tisk na ZX 

printru, văech 2* f 

fedek." 

5030 PRINŢ '"BEL: - S CRPS SHI 

FT »aie dis- piay file 

se SYMBOL 

SHIFT »a2e attributy. 


50*0 PRINŢ '"SXCH: 
zovky." 

5050 PRINŢ '"HNPUT: 
o obrazu 
ly HLS-vra i, 

? vy»az 
UlT-zpei 
isem* a 


- z»4na obra 


da 


m 


S CRPS SHI 
znakovă ho 


FT 

dnoty" 

5060 PRINŢ »l;AT 0,7;“stisknfcie 
k lâvesu" 

506S PRUSE 0 
5070 CLS 

5080 PRINŢ '"SEU: - s CRPS SHI 

FT naze ko»p- letni obra 

zovku." 

5090 PRINŢ '-BEM 
FT - zizna» 
ozici korzoru 
feti . 
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SHIFT ZâPiS 
o obrazovky." 

5100 PRINŢ '"HUER 
razovek. ’* 

5110 PRINŢ '“Suit 
h lavni 

5120 PRINŢ '"SOLL 
zu do saferu 
h kiâwes 
FT inkoust 
SHIFT attri- 
5130 PRINŢ #1;RT 0,7;"StiSknfete 
klâvesu" . 

51*0 PRUSE 0: 60 TO 2 

6000 CLERR 39999: LORD ""CODE 

RUN 

7000 REM UDG 

7001 REM 4i?d'fee2$ii>500ft6Rfef , SCu 

RBCDEFGMIUKLMNOPORSTU 


- S CRPS SHI 
Pixly na p 
do nezipaa 
se SYMBOL 
z pamfeii d 

- Mîchfeni ob 

- nâvrat do 
nabtdky." 

- posun obra 
kurzorov^c 
S CRPS SHI 
se SYMBOL 
buty, 


1 REM SKICRK Stroj.kOd + UDG 
10 FOR i=6*599 TO 6553* 

20 RERD *: POKE i,a 
30 NEXT i 


110 DRTR 2*3,006,192,033,000,06 
*,205,178,01*,201,033,255,087,01 
7,223,087,229,213.01*,023.006.03 
2,026,119,121,230,007,25*,001,03 
2,002,151,018,0*3,027,016,2*1,01 
3,0*0,021,121,230,007,254,000,0* 
0,024,254,007,032.225,213,017,00 
0,007,167,237,082,289,02*,215,20 
9,225,021,037,12*,25*,079,200,02 
*,201,229,033,000,007,235,167,23 
7,082,235,225,02*.193,033,223,09 
0,017,255,090,001,22*,002,237,18 
4,062,056,006,032,018,027 
120 DRTR 016,252,201,017,032,00 
0,00*,025,016,253,065,035,016,25 
3,209,066,197,006,000,075,213,22 
9,017,032,000,167,237,082,209,22 
9,237,18*,225,209,193,120,016,23 
*,2*1,067,119,0*3,016.252,201,01 
7,06*,183,833,000,06*,001,000,02 
7,237,176,201,817,06*,183,033,00 
0,06*,006,027,197,006,000,000,00 
0,000,026,000,000,000,119,035,01 
9,000,016,2*3,193,016,237,201,01 
7,028,028,033,000,06*,006,027,19 
7,006,000,126,2*5,026,119 
130 DRTR 2*1,018,035,019,016,2* 
6,193,016,2*0,201,033,000,064,00 
6,024,197,006,000,126,238,255,11 
9,035,016,2*9,193,016,2*3,201,01 
*,06*,033,015,003.017,026,001,06 
9,213,197,067,062,022,215,124,21 
5,122,215,121,215,020,016,2*4,03 
6,193,209,016,236,201,062,000,23 
0,087,087,033,000,088,006,003,19 
7,006,000,126,230,2*8,178.119,03 
5,016,2*8,193,016,2*2,201,062,00 
2,203,039,203,039,203,039,230,05 
6,087,033,000,088,006,003 
1*0 DRTR 197,006,000,126,230,19 
9.178,119,035,016,2*8,193,016,2* 
2,201,000,001,000,024,017,06*,15 
6,033,000,06*,026,182,119,035,01 
9,011,120,177,032,2*6,201,033,00 
0,06*,085,062,192.006,031,035,09 
*,0*3,115,035,016,2*9,11*,035.06 
1,032,2*2,201,033,255,087,022,00 
0,062,192,006,031,0*3,09*,035,11 
5,0*3,016,2*9,114,0*3,061,032,2* 
2,201,033,255,087,01*.192,006.03 
2,183,203,022,0*3,016,251,013,03 
2,2*5,201,033.000,06*,01* 

150 DRTR 192,006,032,183,203,03 
0,035,016,251,013,032.2*5,201,03 
3,000,06*,017,000,065,01*,192,00 
6,032,026,119,121,254,002,032.00 
2,151,018,019,035,016,2*3,213,01 
7,22*,000,025,227,025.235,225,01 
3,121,230,007,254,000.032,010,21 
3,017,22*,007,167,237,082.209,02 
*,01*,25*,001,032,010,229,235,01 
7,22*,007,167,237,082,235,225,12 
1,230,063,25*,000,032,006,062,00 
7,132,103,02*,187,25*.001,032,18 
3,062,007,130,087,121.25* 

160 DRTR 001,032.17*.201,033,00 
0,088,002,056,01*,024,006,031,03 
5,89*,0*3,115,035,016.2*9,119,03 
5,013,032,2*2,201,033.255,090,06 
2,056,014,024,006,631.0*3,09*,03 
5,115,0*3,016,2*9,119,0*3,013,03 
2,2*2,201,033,032,088,017,000,08 
8,001,22*,002,237,176,062,056,00 
6.032,018,019,016,252,201,000,03 
3,255,087,017,255,086,014,192.00 
6,032,026,119,121,254.002,032,00 
2,151,018,027,0*3,016.2*3.213,01 
7.22*,000,167,237,082,227 
170 DRTR 167,237,082,235,225,01 
3,121,230,007,25*.008,032,008,21 
3,017,22*,007,825,209,02*.011,25 
*,001,032,007,229,033,22*,087,02 
5.235,225,121,230,063,254,000,03 
2,006,124,21*,007,103,02*,188,25 
*,001,832,18*,122,21*,007,087,12 
1,25*,001,032,175 »201,033,000,06 
*.017,032,06*,229,213,01*,023,00 
6.032,026,119,121,230,007,25*,00 
1,032,002,151,018,035,019,016,2* 
1,013,0*0,019,121,230.007,254,00 
0,0*0,022,25*,007,032,225 
180 DRTR 213,017,000.007,025,20 
9,02*,217,209,225,020,036,12*,25 
*,072,832,20*,201,229,833,000,00 
7,025,235,225,82*,193.033,008,08 
8,001,800,003,062,056,119,035,01 
1,120,177,032,2*7,201,033,000,06 
*,001,000,02*,062,008,119,035,01 
1,120,177,032,2*7,201.198,030,06 
3,156,118,027,003,019,000,062,00 
8,016,0S6,00*,060,088,060,000,0* 
0,816,12*,808,016,032,12*,000,02 
0,088,828,032.832,032,028,000,00 
0,085,006,060,066,068,060 
190 DRTR 080,008,016,056,068,12 
0,06*,060,000,868,060,066,06*,06 
*,066,068,000,060,126,00*,008,01 
6,032,126,000,003,016,068,063,06 
3,060,08*,056,008,016,000,0*8,01 
6,016,056,000,006,016,068,068,06 
8,068,056,000.060.060,06*,060,00 
2,066,060,000,008,082.066,066,06 
6,066,060,000,060,120,068,066,06 
6,068,120,000,0*0,016.120,068,06 
8,068,063,000,808,016,056,068,06 
8,068,056,000,860,12*.066,066,12 
*,068,066,000,0*0,016,056 
200 DRTR 068,120,06**, 060,000,02 
0,008,028,032,032,032,032,000,0* 
0,016,056,06*,056,00*,120,000,01 
0,020,016,056,016,016,012,000,01 
6,000,068,068,068,068,056 
1000 SRUE "COde"CODE 6*599,936 
1010 UERIFY "COde"CODE 6*599,936 





MiloS Skopec, U SantoSky 11 , ISO 00 Praha 5 

Program ANALOG 2.1 umoiăuje pouift poCitaC Sord MS jako logicky Casovy analyzâtor (k poCItaCi must byt 
pripoţen modul Basic F a EM-5). Umoirtuje zăznam a zobrazeni Casovych prubăhu osmi nezâvislych logickych 
sigr^O metodou vzorkovâni. Tato metoda a jeji nevyhody je podrobnă popsâna v [1]. PN zăznamu Cte poCitaC 
v urcitych casovych intervalech (doba vzorkovâni, Tv) data ze vstupnlho portu a uklâdâ le do pa mâţi (24 kB). Po 
naplnâm pamăti Ize zobrazit Casovă prubăhy signâlu na obrazovce ve tvaru Casovăho diagramu. 


Pri zăznamu je moino volit vstupnî 
port, vzorkovacf dobu, podmînku za- 
Câtku nebo ukonCenl zăznamu a typ 
zăznamu (se spuătănlm nebo s ukonCe- 
m'm). Pfi zobrazovânf se Ize „pro- 
châzet" celou zăznamovou pamăti, 
mă?it dălku Casovych useku a kmitoCet 
jednotlivych signâlu, automaticky vy- 
hledâvat ruznă kombinace urovnl atd. 
Zaznamenană data se daji uchovat na 
magnetofonovă kazetă. Băhem zobra- 
zovânî je uiivatel prubăănă informovân 
o okamăităm Case a logickăm stavu. 

Program se sklădă ze trl dlICIch 
programu, kteră se postupnă nahrajl 
do poCitaCe. Prvnl program inicializuje 
systăm, definuje predlohy znaku, obsa- 
zenî VRAM atd. Dâle nahraje druhy 
program ve strojovăm kddu (1 kB), 



tisk udaju 
T, dT, STAV 


2x MH3226 


kanol 4 

5 

6 
7 


LOGtCKA 
ZEM ~ 


10 

B0 

ii 

Bl 

12 

B2 

13 

B3 

DO 


Dl 


02 


03 

CS 

DC 

\gnd 

1 _ 

Ucc | 


J5 



10 

BO 

11 

Bl 

12 

B2 

13 

B3 


DO 

Dl 

\02 

D3 

DC 

GND 


zasuvka 

pro JOY Sord M5 

■ JA-3 
- JA-1 

■ JA-2 

■ JA-4 

_ spojit se zemi 
u Sorti M5-stineni 
zasuvek JOf nebo 
kolik 62 zasuvky 
PfUNTER 


JB-3 

-JB-1 

JB-2 

JB4 


Obvod k pfipojen! mâfenych obvodu 
k podftadi 






ktery je ulo2en od adresy 7900H 
a obsahuje pomocnă rutiny pro zăznam 
a zobrazeni. Nakonec nahraje viastnf 
obsluăny program, ktery je opăt 
v BASICu. Ten zajiăfuje ve spojenl 
s podprogramy ve strojovăm kădu 
văechny funkce logickâho Casovăho 
analyzătoru. 


Parametry analyzătoru: 

Doba vzorkovâni: se spuâtănlm 
6,14 jis, 20 i*s ai 566,7 ps (krok po 
2,22 ys), s ukonCenlm —31,1 ai 
—566,7 tis (krok po 2,22 ys). ' 
Podeţ kanâlu: 8. 

Rozsah zâznamovă pamăti: 24 kB. 
Podmlnka spuâtănf nebo ukonCenl: 
Ize zadat u jednotlivych kanâlu 
log. 0, log. 1, nebo bez vyznamu. 


Po nahrănf vSech tfl Căşti programu 
se program ohlăsl nâpisem READY. 
Nynl muieme bu<f spustit zăznam, 
zobrazit Casovy diagram nebo pracovat 
s magnetofonem. 

Pfi funkci zăznam nastavime nejprve 
vzorkovacf dobu pomocl kurzorovych 
Sipek. Nastavenâ doba se prubăănă 
zobrazuje vlevo nahore. Po nastaveni 
poăadovană doby stiskneme RETURN. 
Potâ urCIme, zda chceme podmânku 
(a/n) a (pfip.) tuto podmînku v binârnlm 
tvaru. Nakonec vloifme adresu vstup¬ 
nlho portu (pozor — dekadicky, nebo 
p?ed hex. Clslo napsat znak &). Praktic- 
ky pfipadâ v uvahu port &50 (analiza 
signâlu z magnetofonu) a port &37 (pro 
pouiitl măriclho interfejsu — viz obr.). 
Pfi Tv=6,14ys Ize pro testovănl nebo 
demonstraci pouălt port 1 (CltaC CTC 
#1). Nynl, pokud mâme nastaveno 


spuătănf podmfnkou, se spustl zăznam 
po splnănl tâto podmlnky nebo po 
stisknutl tladtka RESET. Pamăf se 
zaplnl vstupnfmi daty a vyplăe se opăt 
READY. Nynl mâme opăt moinost si 
vybrat z hlavnlho menu. Pokud bylo 
nastaveno ukonCeno podmfnkou 
(Tv<0), pak se po zadânf portu nejprve 
zaplnl celâ pamăr daty (na vySSIch 
rozsazfch to trvâ ai năkolik sekund) 
a pak se teprve testuje stisknutl RESET 
nebo splnănl ukonCovacf podmlnky. 
Băhem toho se pamăf stâle cyklicky 
plnf daty. Po RESET nebo splnănl 
podmfnky se zăznam zastavf a opăt se 
vyplăe READY. 
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spocitej 
hrany mezi 
point a zn 






tisk 

f 


tisk 

f *0 







cekej na 
stisknuti 
dehokoli 



vykonej 
zmenu polohy 
a stavu 


vstup hteda- 
neho stavu 


PPi funkci zobrazeni se na obrazovce 
objevl dasovâ prubăhy signâlu. 
Uprostred obrazovky je svistâ preruâo- 
vanâ dâra — ukazatel. PFi levâm kraj» 
obrazovky se nachâzi podobnâ dâra 
— znadka. Ukazateiem muieme pohy- 
bovat tladftky ; a : . Znadku muieme 
umfstit na iâdanou pozici tak, ie na 
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tuto pozici umistfme ukazatel a stiskne- 
me tladitko z. Tim umistfme znadku na 
toto mişto. Tladftky + a * se 
muieme s obrazovkou „pohybovat“ po 
pamdti, tladitka «- a -» se pouiivaif 
pro rychlejSi pohyb po osmi bodech 
a konednâ tladitka < a > umoini 
pohyb vpfed nebo vzad o cely rozsah 
obrazovky (256 bodu). Vlevo od ukaza- 
tele jsou zelenâ dfsia, oznadujfcf dfslo 
signâlu. Vpravo je dfslo, kterâ urduje 
okamiiţou logickou uroveft v mfstS 
ukazateie — dervenâ jednidka nebo 


tisk I 
N£NALEZ£NO!| 


cekej na_ 
stisknutf 
cehokoli 


pfesuft tom 
pointer 































modrâ nula. Na kfivkâch jednotlivych 
kanâlu je log. 1 vybarvena Cervenă, 
log. 0 modfe a hrany 2lută. 

Nahofe na ăelnîm panelu se 
prObăină zobrazuje okamiity stav 
v mfstă ukazatele v hexadecimâlnfm 
tvaru. Pod nfm je zobrazen das 
v milisekundâch v mfstă ukazatele 
a dălka intervalu mezi ukazatelem 
a znadkou. Pomocf tohoto intervalu Ize 
snadno mărit dălku impulsO nebo po- 
sun hran jednotiivych signâlu. 

Dâie umoirtuje analyzâtor v reiimu 
zobrazen! tyto funkce: 


t — po zadân! dasu v milisekundâch se 
pfeneee ukazatel do pffsluânăho mlsta, 
2 — umfst! znadku na mişto, kde je 
ukazatel, 

c — pfenese ukazatel na mîsto, kde je 
znâdka, 

b — umisti ukazatel na zadâtek pamăti, 
k — umistf ukazatel na konec pamăti, 
s — po zadân! stavu (dekadicky nebo 
&hex) pfesune ukazatel na prvn! m!sto, 
kde je tento stav. Prohledâvâ se od 
mista kurzoru do konce pamăti, 
f — po zadân! dfsla kanâlu vypodîtâ 
prumerny kmitodet signâlu v intervalu 
mezi ukazatelem a znadkou (vdetnă je- 
jich poloh). Kmitodet se vypodftâ z po- 
dtu hran v tomto intervalu, proto je 
vhodnâ pro vătdf pfesnost nastavit jak 
ukazatel, tak znadku na hranu u toho 
kanâlu, kde chceme măfit kmitodet. 


e — ukondi reăim zobrazen! a umo2n! 
opăt vybăr v hlaVnim menu. 

Poznâmky k pouiiti 
programu: 

Protoie program mân! obsah năkte- 
rych systămovych promănnych a uspo- 
fâdân! VRAM, je vhodnâ po skondenf 
prâce s n!m inicializovat systâm 
(CALL 0, vypnutf podltade). Pokud 
chceme băhem programu pfejft do BA- 
SlCu (napr. zmăna rychlosti nahrâvân! 
na MGF), Ize tak beztrestnă udinit v re- 
ăimu hlavnlho menu po vypsân! READY 
stisknutim CTRL+RESET. Pokradovat 
v programu Ize prfkazem CONT. Upo- 
zorrtuji, ie druhy program v BASICu 
nen! v pamăti umistân jako obvykle od 
adresy 77F2H, ale kvOli strojovămu 
programu se nahrâvâ od adresy 8001H 
(zajiSfuje inicializadni basicovy pro¬ 
gram). 

Zâvăr 

Popsany program prokâie velmi do- 
brâ sluiby pfi analize a optimâln(m 
nastaveni signâlu z magnetofonu a pfi 
oiivovân! ruznych perifâril a jinych 
dislicovych zafizenl, kde se nepouiivaj! 
kmitodty vySSi, nei asi 100 kHz (napr. 
dâlnopis, A/D pfevodnik s C 520D...). 

Literatura 

[1] Ovod do techniky logickych analy- 
zâtorQ. Rodenka sdălovac! techniky 
— Praha 1987. 


Seznam promănnych hlavnlho 
programu a jejich vyznam: 

celoâlselnâ: 

CTC ... dasovac! konstanta pro da- 
sovad pfi zâznamu (8 ăi 
255), 

SIGN ... 1 . .startovac! podminka, 
0. .ukondovac! podmînka, 

G ... podeţ m!st za desetinnou 
dârkou pro tisk dasu (2 ai 4), 
HL ... poloha obrazovky v pamăti 
&A0O0 — &FFFF, 

• • • poloha znadky v pamăti 
&A000 — &FFFF, 

X ... x-ovâ soufadnice ukazatele 
na obrazovce (0 ai 255), 

T ... pomocnâ promănnâ, 

Q ... podmfnky startu nebo konce 

zâznamu (0 ai 255), 

1: ... maska podmînky startu ne¬ 
bo konce zâznamu (0 ai 
255), 

1... parametr cykIO, 

C ... dislo vstupnfho portu (0 ai 

255). 

reâlnă: 

BASE# ... vzorkovac! doba v mili¬ 
sekundâch —566.7E-3 ai +566.7E-3, 
T# — pro vstup dasu. 

fetăzcovă: 

A$ ... pro vstup povelu, 

B*.. . pro vstup podm!nky v binârnfm 
tvaru. 


îaea' 

laie' 
1020 ' 
-4030' 
1040' 
1090' 


LOGICKY CASOVY ANALYZATOR 


SCOPWARE COPYRIGHT 1987 
VERZE 2.1 


1060' 

1070' 

1080' Inici«lizac* systemu 
1090' ————— 

1100 ' 

1110 typ* inticlear 25&,69FFCipok* 6701A 
, 694:poke 67033,3>poke 69FF»,1,9 
1120 ' 

1130' Inicializac* VRAM 
1140' ————— 

HS0' 

1160 prinţ " UZSTVTR" i cal 1 68E01,0,61000, 
,60800tcalI 60E01.61E08,60800,,0:call 60 
B81,,,62000,61800icall 60E01,0,60800,,62 
C00scall 60860,,66001,,69FFF«c«ll 60E01, 
6FF00,60100,,63A00 

1170 pokew 670BD,620001pokew 67090,62000 
1180' 

1190' Inicializac* barev 
1200 ' ——————— 

1210 ' 

1220 for I-60C00 to 613FF step 8 

1230 vpoke I,681,6B1,6B1,6B1,6B1,6B1,6B1 

,671 

1240 next I 
1290' 

1260' Inicializac* GII obrazovky 
1270' —————a 
1280' 

1290 K-6S0 

1300 for 1-63900 to 63AFF step 640 
1310 for J-I to I+61F 
1320 vpok* J,<K and 6FF> 

1330 K-K+l 


1340 ncxt J.I 
1390' 

1360' Definice znaku a spritu 
1380’ 

1390 vi*M 0,0,31,7 sc1sjX«128 

1400 for I-6A2 to 6CB«stchr "00000000000 

00080“ to Xsnext 

1410 stchr “8000800080008000” to 6A0«stc 
hr "3000800080008000" to 6Al:*iag 2 
1420 for 1—16 to 31:scod I,6A0iscol 1,15 
+<I>23)i1oc I to X,64+16*11 mod 8>sn«xt 
1430 stchr "0007050505070000“ to 6A3 
1440 stchr "0002020202020000" to 6A9 
1450 stchr "0020505050200000" to 6AD 
1460 Stchr "0020602020200000“ to 6B1 
1470 stchr "0060902040f00000" to 6B5 
1480 stchr "00*020*020*00000“ to 6B9 
1490 stchr "002060a0f0200000" to 6BD 
1500 stchr "00*080*020*00000" to 6C1 


1510 stchr "006080*090600000“ to 6C5 
1520 stchr "00*0204040400000" to 6C9 
1530 for 1-0 to 7iscod 1,4*I+6ACt scol I, 
2:loc I to X-8,64+16*Isnext 
1540 for 1-8 to 15;scod I.6A4sscol I,4jl 
oc I to X,64*16* < X-8)J nex t 
1550 stchr "002040f*40200000“ to 6e2,l 
“000S04f*04080800" to 683,1 
“0080004848784848“ to 681,1 
"3c4299a1a199423c“ 
”0800000000081000" 
"0000000800281000“ 


to 680,0 
to 684,0 
to 685,0 


1560 stchr 
1570 stchr 
1588 stchr 
1590 stchr 
1600 stchr 
1610' 

1620' Tisk obrazovek 
1630' ———- 
1640' 

1650 prinţ "W. STAV : 00OJ.» SCOPWARE 1987 
WW T» 0.000 ms^dT- 0.000 msW“;rptB(3 
2, “-“)ţ“Menu : <♦+;:*4> t,b,k,s,c,z,f,* 
"ţ cursor (0,7) ;rptfi(32, ) ; “KC“ 

1660 prinţ “jŢ'itcall 60CA3 

1670 prinţ "X <v J. «vi -vii 

LOGICKY CASOVY ANALYZATORWP” srptB(38." 

-");"il Tv- 0.0 nSl P—-X1-000 

11II 76543210U4-I 6” jrptH(38, ) j “J P 

rptH (38, )?""!“; 

1680 prinţ “I Lii x-vil Iii r...SP 

USTENIJI II IIII Iii l.s.v... 

LOAD.SAVE.VERIFY II n 4/|J 

III e...ZOBRAZENIII II IIII 

16"? rptB(38, ); "9 " 

1690 view 0,16,39,23 
1700' 

1710' Basic od 8000H, nahraj cm a CHAIN 
1720' ——==—=====—— 
1730' 


1740 poke 63001,6FFspokew 6726A.68002,68 
004,68004told "LAmcset?":Chain 


1000' LOGICKY CASOVY ANALYZATOR 

1020 ' 

1030' 

1040' Pocatecni inicial izace 
1050' 

1060 CTC-9:BASED-0. 02*i SIGN-1iG-4 

1070 cls:on mrror gosub BERR:goto «EXIT 

1080' 

1090' Horky start zobrazovani 
1100 ' 

1110aHOT 

1120 HL,LAB-6A000:X-128:goto fiZOBR 
1130' 

1140' Smycka zobrazovani 
1150' 

H 60 aLOOP 

1170 prinţ cursor(8,1)5rightH(hexH(peek( 
HL+X)),2)?cursor(3,3)s numH((HL+X+65FFF*S 
IGN-1)*abs(BASE#>,S-G,G)scursor(19,3)?nu 
mH((HL*X-LAB)*BASE#,8-G,G> 

1180HKEY:AH*i nkeyH 


1190HCOMMAND 

1200 if AB-“" then goto BKEY clsc if Afi- 
then goto BSPD else if AB-"s" then g 

oto SSPJ else if AH-"-*-" then goto BEST e 

lse if AB="*" then goto BSST else if Aft- 

then goto BFBS el s* if then g 

Otd BFSS 

1210 if Afi-"<" then goto BPGD else if AB 
=">" then goto BPGI else if Afl»"t" then 
goto BTIME else if Afi=»"s" then goto BSEA 
R else if Afi-"e" then goto BEXIT else if 
AB—“c" then goto BCAR else if AH=“z“ th 
on goto BZNAC 

1220 if AB—"f" then goto BFRQ else if AB 
*"k" th«n goto BKONEC else if Afi-"b“ the 
n goto BBEG1N else goto BKEY 
1230' 

1240' Posunuti pointeru vlevo 
1250 

1260SSPDj if X<1 then X-2S5 else X-X-l 
1270 caii 67AE0,,,,X:cal1 67AFC,,,peek(H 
L+X)igoto BLOOP 
1280' 

1290' Posunuti pointeru vpravo 
1300' 

1310BSPIsif X>254 then X-0 else X-X+l 
1320 caii 67AE0,,,,Xicall 67AFC.,.peek(H 
L+X):goto BLOOP 
1330' 

1340' Posunuti obrazku vpred 
1350.' 

1360BSST:if HL>-257 then goto BLOOP else 
HL-HL+1ical1 67A9E,,.LAB-HL,HLical1 67A 
FC,,.peek(W_+X)sgoto BLOOP 
1370' 

1380' Posunuti obrazku vzad 
1390' 

1400BBSTiif HL<-24575 then goto BLOOP *1 
se HL-HL-licall 67A9E,,.LAB-HL,HLscal1 6 
7AFC,,.peek(HL+X)«goto BLOOP 
1410' 

1428' Posunuti obrazku vpred o os» bodu 
1430' 

1440BFSS:if HL>-264 then goto BLOOP else 
HL-HL+Bscall 67B61,•,LAB-HL,HLscal1 67A 
FC,,,peek(HL+X)>goto BLOOP 
1450' 

1960" Posunuti obrazku vzad o osc bodu 
1478' 

1480BFBSiif HL<-24568 then goto BLOOP *1 
S* HL—HL-Sscall 67BA8,,.LAB-HL,HL:caii 6 
7AFC,,,peek(HL+X)igoto BLOOP 
1490'. 

1500' Posun o obraxovku vpred 
1510' - f 
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Sobnov HL 


1520HP6I î if HL>-512 then goto HLOOP elM 
HL-HL+256:call 67A9E,,,LAB-HL,HLscal1 6 
7AFC,,,peek(HL+X)sgoto HLOOP 
1530' 

1540' Posun o obrazovku vzad 
1550' 

1560HPGD: if HL<-24320 then goto HLOOP el 
se HL-HL-256:cal1 &7A9E,,,LAB-HL,HL:cal1 
67AFC,,,peek (HL+X)igoto HLOOP 
1570' 

1580' Umisteni pointeru na konec 
1590' 

1600HKONEC: T—65FFF : goto HPRENOS 
1610' 

1620' Uaisteni pointeru na zacatek 
1630' 

1640HBEGINjT—03 goto HPRENOS 
1650' 

1660' Uaisteni znacky pod pointer 
1670' 

16S0HZNAC:LAB-HL+X:goto HZOBR 
1690' 

1700' Preneseni pointeru na znacku 
1710' 

1720HCAR 3 T-LAB-6A000 

1730' 

1740' Prenos pointeru na urcitou pozici 
1750' 

1760HPRENOS»X»12Stif T<128 then X=X-(12B 
-T) el se i-f T>65F7F then X-X+T-65F80 
1770 HL«T+6A000-X:goto HZOBR 
1780' 

1790' Preneseni pointeru na dany cas 
1800' 

1810HTIME:view 0,6,31,6sinput "T Cm*} - 
" i T#s view 0,0,31,7si-f T#<0 and SIGN-1 or 
T#>0 and SIGN-0 or abs(Tft) >abs(65FFF*BA 
SE#)then goto HTIME else T-eint(T#/BASE# 
>:if S1GN-0 then T—T+65FFF 
1820 goto HPRENOS 
1830' 

1840* Hledani daneho stavu 
1850' 

1860HSEAR:view 0,6,31,6sinput "Stav - M ; 
TsiF T<0 or T>255 then goto HSEAR 
1870 caii 67B1F,256*T,6FFFF—W.-X+1 , ,HL+X 
: i-f < <reg (0>mod 256)and 640)-0 then prinţ 
“Nenalezeno !G‘‘; cgoto HCEKEJ 
1880 T»r*g (3) -6A001ivie»» 0,0,31,6:goto H 
PRENOS 
1890' 

1900' Zobrazeni obrazovky a pointeru 
1910' 

1920HZOBR:cal1 67A9E,,,LAB-HL,HL:call 67 
AE0,,,,X:cal1 67AFC,,,peek(HL+X)sgoto HL 
OOP 
1930' 

1940' Vstup do povelove obrazovky 
1950' 

1960HEXITB prinţ 11 KUVL READ Y ** 
1970HEXCOM»AH—inkeyH: i-f AH« M " then goto 
HEXCOM else if AH«"e" then goto HRET els 
e if AH-”r" then goto HRUN else if AH-“1 
“ then goto HLQAD else if AH="s” then go 
to HSAVE else if AH»"v“ then goto HVERIF 
Y else goto HEXCOM 
1980' 

1990' Navrat do zobrazeni 
2000 ' 

2010HRETsprinţ "KU“;goto HHOT 
2020 ' 

2030' Nahrani dat na magnetofon 
2040' 

2050HSAVE:input ” .WJmeno souboru : " ; A 

H:if len(AH>>9 then goto HSAVE else save 
"cmt: "+AH,69FFD,6FFFFsgoto HEXIT 
2060' 

2070' Kontrola spravnosti nahravani agf 
2080' 

2090HVERIFY:input ” vWJneno souboru t “ 
sAHsif len<AH)>9 then goto HVERIFY else 
verify AH:goto HEXIT 
2100 ' 

2110' Nahrani dat z magnetofonu 
2120 ' 

2130HLOA0: input “ v|4Jaano souboru t “; A 
Hiif l*n(AH>>9 then goto HLOAD else old 
"cmt:"+AH:CTC-peek(69FFE):SIGN-peek <69FF 
D) 

2140 if abs(CTC> >8 then BASE#-CTC*2.2222 
22222222E-3# else BASE*-0.00614# 

2150 if SIGN-0 then BASE#—BASE# 

2160 viewsprint cursor(5,3)»numH(1000*BA 
SE#,4,2):view 0,16,39,23cgoto HEXIT 
2170' 

2180' Spusteni sberu dat 
2190' 

2200HRUN 

2210 prinţ "UNastav Tv <s ,:,RETURN>” 
2220HBISPTVsviewsprint cursor<5,3>inumH( 
1000*BASE#,4,2) 

2230HADJTV: AH-inkeyHsif AH-*" then goto 
HADJTV else if ascii(AH)-13 then goto H 
HOTOVO 

2240 if AH-"»" then if 5IGN-0 and CTC<25 
5 then CTC-CTC+1 else if SIGN-1 and CTC> 
8 then CTC-CTC-1 else if SIGN-1 and CTC- 
8 then SIGN-0iCTC=14 
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2250 if AH-":" then if SIGN-0 and CTC>14 
then CTC-CTC-1 else if SIGN-0 then SIGN 
-lsCTC-8 else if CTC<255 then CTC-CTC+1 
2260 if CTC-8 then BASE*-0.00614# else B 
ASE#«CTC*2.222222222222E-3# 

2270 if SIGN-0 then BASE#—-BASE# 

2280 goto HDISPTV 
2290HHOTOVO 

2300 poke 69FFD,SIGN,CTC»if CTC<19 then 
G-4 else if CTC<184 then G-3 else G-2 
2310' 

2320' Vstup a vypocet podmirtky 
2330' 

2340HPODM s Q,E—0 «view 0,16,39,23sinput "H. 

«vMPODMINKA : Ca,n>,C8xC0,l,x>1“sAH,B 
H 

2350 if AH-"n” then BH-rptH(8,“-"):Q«6FF 
sgoto HDISPDD 

2360 if len<BH><>8 then goto HPODM 
2370 for 1-0 to 7 
2380 AH«midH<BH,8-I,1) 

2390 if AH= M 0" then E=E+2~I:goto HDALSI 
2400 if AH—" 1" then E-E+2"'I :Q«Q+2^I»goto 
HDALSI 

2410 if AH<>"x" then 1-10 

2420HDALSI:nex t I 

2430 if 1=10 then goto HPODM 

2440HDISPOD:view:prinţ cursor<20,3);BH:v 

iew 0,16.39,23 

2450' 

2460' Vstup vstupniho portu 
2470' 

2480HINPORT:input " KWXWX PORT s ";C 
2490 if C<0 or 0255 then goto HINPORT 
2500 viewsprint cursor<34,3);rightH(hexH 
(C),2):view 0,16,39,23 
2510' 

2520' Vlastni spusteni sberu dat 
2530' 

2540 prinţ "Wa <v a a wWCekam na 

spusteni “;:if AH—"n“ then prinţ “RESET. 
" else prinţ “podmiffwfnkou.“ 

2550 if SIGN—0 then caii &7BFF,„CTC*256+ 
C,Q*256+E else if CTC>8 then caii 67900, 
,CTC*256+C,Q*256+E else if AH—"n" then c 
al1 67A8F,,C els# caii 67962,,C,Q*256+E 


CALL 

POP 

RET 


KONEC 

HL 


BEGIN: 


DI 


;uz je-zakaz 

POP 

DE 

»vyber n avr.adr, 

LD 

SP,(OLDSP) spuvodni SP 

PUSH 

HL 

ţposledni adresv 

PUSH 

DE 

jnavratova adr. 

CALL 

01C2H 

sCTCINT . 

LD 

A.0E0H 

;EI pro VDP 

OUT 

<11H) , A 


LD 

A,31H 

;do R1 VDP 

OUT 

(11H> ,A 


CALL 

0CA3H 

jVREGI 

CALL 

RET 

01DFH 

S CTC3SP 

INI 


ţseber data 

CP 

H 

5 H—07 

EI 


;zas povol 

RETI 


;a zpatky 

DI 


;inicializace 

LD 

A.43H 

;DI pro CTC 

OUT 

(00H),A 

sete #0 

OUT 

(01H),A 

sete #1 

OUT 

<03H>,A 

sete #3 

LD 

A.0C7H 

sete #2 bude 

OUT 

(02H),A 

sv modu citac 

LD 

HL,INTCT2 s adresa 

LD 

(7004H) 

,HL sppgm sberu 

POP 

HL 

snavrat.adr. 

LD 

(OLDSP) 

,SP sschovej SP 

LD 

SP,OLDSP—2 ;novy SP 

PUSH 

HL 

suloz nav.adr. 

LD 

HL.0A000H »zacatek RAM 

RET 


spro data 


2560 poke 69FFF,peek(6A000):goto HEXIT 
2570' 

2580' Mereni kmitoctu 
2590' 

2600HFRQ 

2610 if HL+X-LAB then goto HLOOP else vi 
ew 0,6,31,6:input “Linka {0..7J - "jTsif 
T<0 or T>7 then goto HFRO else if HL+X> 
LAB then caii 67BDD,T*256,.HL+X-LAB+l,LA 
B els* caii 67BDD,T*256,.LAB-HL-X+l,HL+X 
2620 if reg(3)<2 then pokew 67268,0 
2630 prinţ “f“;Tţ“ -"»numH(reg<3)*500#/a 
b*(BASE#)/abs(LAB-HL-X),7,2)»“ Hz"» 

2640' 

2650' Cekani na stisknuti klavesy 
2660' 

2670HCEKEJ:repeat s AH-inkeyHs unti1 AH< >"" 
2680 printsview 0,0,31,7:goto HCOMMAND 
2690' 

2700' Obslouzeni chyby INPUT nebo CMT 
2710' 

2720HERR:if err»25 then resume else if e 
rr—18 then prinţ "WGCHYBA MGF !"ssleep 1 
sresume 

2730 prinţ "Errerr»"in"?errl 



» LOGICKY CASOVY ANALYZATOR 


; SCOPWARE COPYRIGHT 1987 




ORG 

7900H 


OLDSP 

EQU 

7FEFH 

5 TOS 


S SBER 

DAT OD 

20 MIKROSEKUND 

S VSTUP 

3 B. . 

konstanta pro CTC 

; 

C.. 

. vstupni port 

s 

D. . 

startovaci podminka 

l 

E. . 

.maska start. podm. 

• 



START: 

CALL 

BEGIN 

PODMls 

IN 

A,(O svstup dat 


AND 

E s maska 


XOR 

D spodminka? 


JR 

Z.SPLN sano 


IN 

RLCA 

A,(S0H) 


JR 

NC,PODM1 snebylo RESET 

SPLNs 

LD 

A.B 


OUT 

(02H),A skonst. do CTC 


LD 

A,81H sDI pro VDP 


OUT 

(11H>,A 


OUT 

(11H),A sdo Rt VDP 


EI 

5 pro CTC #2 


XOR 

A S A-0 

HLT s 

HALT 

icekej na INT 


JP 

NZ.HLT sneni konec 


RYCHLY SBER DAT 6.14 MIKROSEK. 


5 VSTUP: C...VSTUPNI PORT 


s 

D. . . 

STARTOVACI 

PODMINKA 



E... 

MASKA 



5—“• 

======== 


•========“ 


INITs 

DI 


szakaz INT 



LD 

HL,0A000H sodkud RAM 


LD 

B ,0 

;256x 


LOOPs 

IN 

A, (C) 

s data 



AND 

E 

;maska 



CP 

D 

5 podminka 



JR 

NZ.LOOP 

5 jeste ne 


FSBERi 

INIR 


svlastni sbe»— 


RET 

NZ 

S-instrukce 


INIR 


SINIR a RET NZ 


RET 

NZ 

sse opakuji 


INIR 


S 192x 



RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 


INIR 



RET 

NZ 

RET 

NZ 




INIR 





RET 

NZ 




INIP. 





RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





REB 

NZ 




INIR 





RET 

NZ 




INIR 





EI 


s povol - 



RET 


s-a j» to 







tRYCHLY SBER DAT BEZ PODMINKY 

5 

; VSTUP s C...port 


LD 

ADD 

CALL 

LD 


A.D 
A.7 
0454H 
A.D 


(cisla spritu 
(vypocti 
iSTSCOD 
;c.spritu 


ş ««asm 




ADD 

A.7 

(vypocti 

FSBRESs 

Dl 

(zakaz INT 


CALL ' 

0445H 

(STSCOL 


LD 

HL.0A000H (odkud RAM 

1 

LD 

8 ,D 

; par ani» tr 


LD 

B.0 ( 256:: 


DJNZ 

PREV 

; 

FSBRE1: 

IN 

A.(S0H) 


RET 


; tonac 


RLCA 

Ibylo RESET? 

5 





JP 

NC.FSBRE1 (nebylo 

TREDLs 

DB 

0A4H.05H 

, 8ASH.08H 


JP 

FSBER (abirej 

? 





ZOBRAZENI JEDNE OBRAZOVKY 
scopware /C/ 1987. 


MLEDANI a OD hl. DELKA-bc 




HLEDEJ: DI 

(zakaz INT 

VSTUP( DE. 

..adraaa znacky 

CPIR 

(hledej 

HL. 

..odkud zobrazit 

EI 

(povol ÎNT 



RET 

(vrat aa 


OBRAZi 


0BR1» 


DI 

PUSH 

PUSH 

POP 

LD 

CALL 

INC 

BIT 

JR 

POP 

CALL 

RET 


DE 

HL 

IX 

E.0 

OBRSLO 

E 

5.E 
Z.OBRl 

Sn. 


;zakaz INT 
iadr.znacky 
; odkud-MX 

iod 0. sloupea 
;sloupec 
; dai si 
Ivsach 32? 
(jaata na 
iadr.znacky 
iz obraz znackti 
lhotovo 


5ZOBRAZENI JEDNOHO SLOUPCE <8bit> 


E...cisto iloupce 
IX..odkud v pasaţi 


ZOBRAZENI ZNACKY 


( 

{ VSTUP 

i «... 

.polaha 

znacky 

? 

ZOBZNA» 

LD 

A.H 

(hl>255? 


OR 

A 



JR 

Z.DRAM3 tnani 


LD 

HL.-l 

(nakraali 

DRAW3» 

LD 

A. 31 

»od apritu 


LD 

B.8 

(8 apritu 

PMOVEî 

PUSH 

BC 



PUSH 

HL 



PUSH 

AF 



CALL 

042BH 

(GTSPOS 


POP 

AF 


.. r , 

POP 

HL 



PUSH 

AF 



CALL 

03CEH 

(MVSPA 


POP 

AF 



POP 

BC 



DEC 

A 

(dalai apr: 


DJNZ 

PMOVE 

f 8x 


EI 

RET 


RESULT: DS 


(POvol INT 
!navrat 


iwo vypoctr 


î POSUNUTI SPRITU PO OSE X 

î 

î VSTUP : HL...nova x-ova nour. 


SWHJNi LD A,23 jpoc.spr. 

HOVEi PUSH HL 

PUSH AF 

CALL 042BM jGTSPOS 

POP AF 

POP HL 

PUSH AF 

CALL 03CEH tdVSPA 

POP AF 

CP 8 tja S.sprita? 

JR NZ.MOVi «nani 

LD DE.0008H irozdil 


} «nancnim 

I 

OBRSLO» LD 

PUSH 
CALL 
ADD 
AND 
RLCA 
RLCA 
' RLCA 
LD 
LD 
LD 

TRANS1: LD 
LD 
LD 
XOR 
LD 

TRANS2: RRC 
RL 
INC 
RRCA 
RL 
INC 
DJNZ 
INC 
LD 
LD 
DJNZ 
LD 
LD , 
LD 
LD 
OUT 
OUT 
LD 
LD 


CPL 

LD 

CPL 

OR 

OUT 

LD 

LD 

INC 

INC 

OUT 

NOP 

DJNZ 

INC 

OR 

OUT 

LD 

DJNZ 

POP 

RET 


HL.3900H sL.H.roh 


DE 
14C5H 
A.E 
1FH 


(achovej E 
iSBVRAH 
(vypocat prwni 
ladrair VRAM 
;E. sloupce 


DRAM!» 


E.A »lsb->E 

A. (IX-l) ţainuly stav 

B. S «8 byta 

C. B ischovaj citac 

HL.RESULT (vysladak 

D. <IX) udata 

D ţhrany 

B.S î 8 bitu 

D »vazai bit 

. (HL) izaroluj 
HL 

(Zaroluj hrany 
(HL) jdo vysladku 

HL idaisi vyslad. 

TRANS2 «cal y byta 

IX (dalai data 

A. D minula data 

B, C «citac bytu 

TRANS1 (dalai byta 

D.6CH >MBb adr. VRAM 

BC.0811H ţport 11 a 8x 
IY,RESULT (vysladak 
L.B ischovaj citac 

<C> .E (adraau do VDP 

<CI .D 


DRAW2: 


I POSUNUTI OBRAZOVKY VLEVO O 8 



SBC 

HL.DE )poloh x 

( 



HOVit 

SUB 

1 (dalai aprita 

{ VSTUP s DE.. 

.polaha znacky 


JR 

NC.MQVE (jaate opakuj 

» HL.. 

.odkud v 

paaati 

T 

RET 

(uz na 

jr-r........... 

1 

• 

« 

1 

î 

! 

--r—r-r 

t 

î 



? 

LSUNSt PUSH 

DE 

(adr.znacky 

1 PREVOD NA 

BIN. TVAR PRO SPRITY 

PUSH ♦ 

HL 

(odkud-MX 

. » 



POP 

IX 


( VSTUPi 

: E.. 

.eislo 

CALL 

PRIPRA 

«inicializaca 

; 



LSUN81» LD 

C.B 

(citac radku 

( 

■aa«R»axs««aa>a K a0aaaa««aii 

LD 

B.E 

(20H*dalka rad. 

: 



LSUN82» INC 

A / 

(novy znak 

PREVOD: 

LD 

B.8 ;8 bitu”byt* 

AND 

1FH 

;aodulo 32 

f>REV( 

LD 

D.B ischovaj citac 

OR 

D 

(3 vrchni bity 


LD 

HL.PREDL (pradlohy 

CALL 

14BDH 

(PBVRAM 


RLC 

E 

INC 

HL 

(dalai znak 


JR 

NC.PREV1 Ibit-B 

DJNZ 

LSUNS2 



INC 

HL (druha pradl. 

EX 

AF.AF * 

lachov.poal .zn 


INC 

HL 

LD 

A.D 

(3 vrchni bity 

PREVli 

LD 

C,(HL) (vazai pradl. 

LD 

D.0 

(pro dalai rad. 


INC 

HL 

ADD 

HL.DE 

(adraaa p.d.r. 


LD 

B.(HL) (a uloz Ji 

ADD 

A.E 



LD 

D.A 

(bity zpat 

EX 

AF.AF" 

'(posladni znak 

LD 

B.C 

(citac radak 

DJNZ 

LSUN81 

(daiai radak 

LD 

DE,248 

(poalad.aloupac 

ADD 

IX.DE 

;vpravo 

LD 

E.1FH 

(to im on 

JR 

SKONCI 

idokonci 


POSUN OBRAZOVKY VPRAVO 0 8 
VSTUP » jako LSUN8 


RSUN8» PUSH 
PUSH 
POP 
CALL 
DEC 

RSUNSli LD 
LD 

RSUN82» AND 
OR 
CALL 
INC 
INC 
DJNZ 
EX 
LD 
LD 
ADD 
ADD 
LD 
EX 
LD 
DJNZ 
LD 

SKONCti CALL 
POP 
JP 

I 


PRIPRAi DI 
LD 
LD 
CALL 
LD 
RET 


DE 

HL 

IX / 

PRIPRA 

A 

C. B 
B.E 
1FH 
D 

141DH 

HL 

A 

RSUN82 
AF ,AF ‘ 
A.D 

D. 0 
HL .DE 

A. E 

D. A 
AF.AF" 

B. C 
RSUNS1 

E. 0 
OBRSLO 
ML 

ZOBZNA 


;adraaa znacky 
(Odkud->IX 

;inicializace 
(novy znak 
«citac radku 
»dal.radku>20H 
;nodulo 32 
inajvys. 3 bity 
(PBVRAM 

(adr.dala.znaku 
(dalai znak 

(schov.posl.zn. 
«zvata.najvya. 
(3 bitu o 1 a 
svypocat adraay 
(pro dai. radak 
(bity zpat 
jpoal.znak zpat 
(citac radku 
(novy radak 
(1. al. zlava 
(kraali aloupec 
(adrasa znacky 
(kraali znacku 


ţzakaz INT 

HL.3900H (adr. 1. znaku 
B.B (8 radku 
14C5H (QBVRAN 
DE.8B20H (3b a dai.rad. 
(vrat aa 


HERENI PRUMERNEHO KMITOCTU 

VSTUP i A...1inka 0-7 

DE..daika uaaku RAM 
HL..odkud v RAM 

VYSTUPi HL..pqcat hran -1 


A,(IY) 

(data 

MERPER: 

DI 

B.(IY+I) 

(hrany 


INC 

.... t: 



LD 

X 

iuroven L 


LD 

H.A v 

(schovaj 

MERLP* 

RLCA 


iurovan H 


DJNZ 

B 

ipridaj hrany 


PUSH 

(10H),A 

(urovan H 


POP 

A.8 



LD 

B.6 

l6x hrany 


LD 

D 

(dalai radak 

MERI: 

LD 

IY 

ţpriprav 


XOR 

(IOH).A 

(kraali hrany 


INC 




DEC 

DRAM2 

(opakuj 6x 


AND 

IY 

(dalai data 


JR 

H 

(pridaj hrany 


INC 

(I0H).A 

(kraali L 

NEHRAN: 

LD 

B.L 

(Citac 


OR 

DRAM1 

(dalai radak 


JR 

DE 

(obnov E 


EI 


(navrat 


RET 


A 

I.A 

A.B0H 


(zakaz INT 
(vypocat «tasky 


MERLP 

HL 

IX »odkud->IX Y 

HL.-l ipocat hran-1 

C.A (aaaka do C 

A.lIX-l) »ainul a data 
(IX) (por.aa soucas. 
IX (dalai data 

DE (cit.dai.uaaku 

C Izaaaskuj 

Z.NEHRAN (nabyla hrana 


HL 
A.D 
E 

NZ.MERI 


(byla->zvata 

(DE-0? 

(jaate na 

;povol 

(navrat 


SBER DAT S UKONCOVACI PODMINKOU 

VSTUP t B...konatanta pro CTC 

C. ..vstupni port 

D. ..podainka 

E. ..aaaka podminky 


CALL 

BEGIN 

(inicializaca 

LD 

A.l 

>caa.konat. CTC 

OUT 

(02).A 


LD 

A.81H 

(DI pro VDP 

OUT 

(1IH) .A 


OUT 

(tlH).A 

(Rl VDP 

XOR 

A 

(A*0 

EI 


»povol 


mikroelektronika 


71 








/ 


FILLs 

HALT 


;cekej,az se 


JP 

NZ.FILL 

•, pamet cap Ini 


LD 

HL.UPINT2 splno-zmen 


LD 

(7M4H) 

, HL ;proced. INT 


LD 

HL,0A000H ;pocit.adr. 

RPTs 

IN 

RLCA 

A,(50H) 

;smycka cekani 
sRESET? 


JP 

NC.RPT 

ţnebylo 

C HAL AS: 

CALL 

KONEC 

-.ukonci 


POP 

HL 

5 adr.zacat.dat 

, 

JR 

POSUN 

SPosun pamet 


UPINT2: 

EX 

AF.AF' 

schavej AF 


IN 

A, <C> 

data 


LD 

(HL) .A 

uloz 


AND 

E 

maska 


XOR 

D 

podm.splnena? 


JR 

Z , VEN 

ano->skonci 


EX 

AF, AF 

vrat AF 


INC 

HL 

dai si adresa 


BIT 

7,H 

HL je uz 0? 


JR 

NZ.UP121 

5 ne 


LD 

H.0A0H 

ano- >k#_»A000 

UPI21: 

EI 


povol 


RETI 


navr.do srnycky 

VEN: 

CALL 

1S6DH 

ISNORJ 


POP 

DE 

znic navr.adr. 


EX 

AF,AF' 

.vrat AF 


JR 

CHALAS 

;a vrat se 

: POSUN 

USEKU 

RAM 0A000H 

- 0FFFFH 

l VSTUP 

HI_ 

ADRESA,JEJIZ OBSAH 


PATR1 

NA ADRESU 

0A000H 

POSUN 1 

PUSH 

HL 



LD 

HL.2000H 

;schov.predl. 


LD 

DE,300BH 



CALL 

0B81H 

5 BLKMV2 


POP 

HL 



DI 


;zakaz INT 


LD 

A.0D0H 

îPul RAM 


CP 

H 

j ktera? 


JR 

C,PUL2 

$2.pulka 


PUSH 

HL 



LD 

DE.6000H 


ADD 

HL, DE 

;—0A000W 


.LD 

B,H 


LD 

C.L 

5 BC s delka 

LD 

A,H 


OR 

L 


JR 

Z.HOTOV 

;nesouptj 

LD 

HL.0A000H 

,LD 

D.L 


'LD 

E,L 

;DE»0 

CALL 

0E61H 

;RAM-VRAM 

DI 



LD 

H,B 


LD 

L.B 

;HL-0 

POP 

DE 


PUSH 

DE 


SBC 

HL, DE 


LD 

B,H 


LD 

C.L 

;BC«delka 

EX 

DE, HL 

sHL«odkud 

LD 

DE,0A000H 

LDIR 



LD 

BC,6000H 

POP 

HL 


ADD 

HL.BC 

t —0A000H 

LD 

B.H 


LD 

H,C 


LD 

C.L 

;BC-delka 

LD 

L,H 

îHL-0 

CALL 

0E7DH 

ţVRAM-RAH 

JR 

OBRINI 


HOTOVs POP 

HL 


JR 

OBRINI 


PUL2: XOR 

A 

«CY-0 

PUSH 

HL 


EX 

DE.HL 


LD 

H, A 


LD 

L, A 


SBC 

HL.DE 


LD 

B.H 


LD 

C.L 

;BC>delka 

EX 

DE.HL 

;HL*odkud 

LD 

D,A 


LD 

E.A 

-DE“0“kam 

CALL 

0E61H 

;RAM-VRAM 

DI 



POP 

DE 


LD 

HL.6000H 

ADD 

HL.DE 


LD 

B.H 


LD 

C.L 

:BC-delka 

EX 

DE.HL 


DEC 

HL 

jHL-odkud 

LD 

DE.0FFFFH 


LDDR 

EX 

DE.HL 


XOR 

A 

;CY=0 

SBC 

HL.DE 


LD 

B.H 


LD 

C.L 

;BC«delka 

'INC 

DE 

;DE-A000H 

LD 

L, A 


LD 

H.A 

j HL-0»od 

CALL 

0E7DH 

SVRAM—RAM 


; INICIALIZACE VRAM PO POSUNUTI 



OBRINIi 

XOR 

A ; A—0 


LD 

BC.2S00H jrrnluj VRAM 


LD 

HL,0800H ;od barev 2. 


CALL 

0E01H sPADVRM 


LD 

A.1EH ;cer+seda 


LD 

BC.0800H 


LD 

HL,0 ţbar.pro l.tre. 


CALL 

0E01H jPADVRM 


LD 

DE.2000H 


LD 

HL.3000H ;vrat predlohy 


CALL 

0B81H ;BLKMV2 


DI 

;z akaz INT 


LD 

HL.0C00H 


CALL 

149FH ;STVWAD 


LD 

B.0 sbarvy pro 

OBINli 

LD 

C.B ;2.a 3.tretinu 


LD 

B.8 


LD 

HL.BARVY 

0BIN2: 

LD 

A,(HL) 


OUT 

(10H),A 


INC 

HL 


DJNZ 

OBII42 


LD 

B.C 


DJNZ 

OBIN1 


EI 

;uz povol 


RET 

!vrat se 


BARVYr DB 

81H.0A1H.0A1H 

DB 

0A1H.0A1H.0A1H 

DB 

0A1H.71H 

END 





Ing. Martin Stopânek, j. jovkovm sas, praf» a 


Muttiprocesovy operatei systtei ZX MULTITASKING pro poteate DC Specfrutn umoteuje exirtenci ,viofe 
programa v potenţi a mOie zabezpe&it jejich sou&asny bte. Jednâ ae o no r* mo inost» pouifvâni 

ţ jSL i jsme se dopoeud setkâvali jen u vtttfch po&fta&O. Operatei systtei je navrien tak» te pra cuţe se y&emi 
druhv orooramO (BASIC, stroiovy k6d. Pascal atp.), pouze se dvteia omezenimi: maximâlni yeliko^ iednoho 
programuje 38016 bajtâ mişto 48 kB (muşi toţii zbft jefttt mişto na druh* proces - m«nimâlnă10368b^ta 
a prostor pro operatei systom) a uiivaielskym procesOm nejsou povoleny itokter* akce, ktert se tykajf retimu 
pferuieni procesoru. 


V systomu ZX MULTITASKING muie- 
me napffklad provozovat, ladit ne- 
bo vyhfâfet program na po&lta&i, 
ktery po&ftâ zârovert jlny program (vy- 
uiitl &ekacfho &asu pri dlouhotrvajfclch 
vypo&tech). Dalăi moinostl je vyuăivâni 
ruznych pomocnych programO pri 
prâcl s hlavnim programam. Jako po- 
mocny program mOieme mit napffklad 
kalkulâtor (viz pffloha — program KAL- 
KULÂTOR/ZÂPISNlK), kde si pro- 
vâdfme pomocnâ vypo&ty a poznâmky, 
anii bychom ovlivfiovali hlavnf pro¬ 
gram. Velmi vyhodrtou moinostf je 
vyuiitf multitaskingu pro elektronicky 
diâf, kde jako paralelni proces bâif 
diâf, ktery nâs v dobă schGzek, vzkazO 
a jinych udălostf mGze upozornit akus- 
tickym signâlem a vypsat zprâvu na 
monitor. 

Podstatnym rysem opera&nfho sy- 
stemu ZX MULTITASKING je, ie uiiva- 
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tel navrhuje programy băinym zpuso- 
bem, vytvofenâ programy jsou zcela 
normâlnf (bez uprav) a fungujf i na 
po&fta&i bez tohoto opera&nfho sy¬ 
stomu! 

Opera&nf systom ZX MULTITASKING 
muie pracovat se ZX Microdrive, ZX 
Interface l, joysticky, tiskârnami a dal- 
ăfmi peritoriemi bez omezenf. 

ZÂKLADNl POJMY 

Abychom plnâ vyuiili moinostf popi- 
sovanâho opera&nfho systomu, mu- 
sfme si nejprve năco pov&dfet o zâklad- 
nfch pojmech, se kterymi se budeme 
băhem prâce setkâvat 

PROCES — je sled &innostf pro- 
vâdSnych s urCitymi daty. Procesem 
zde tedy rozumfme nejen b&h vlastnfho 
aplika&nfho programu, ale napffklad 
i jeho editovânf, vypisovânf listingu 
a pod., kdy vtastnâ bâif ur&itâ &âst 
opera&nfho systomu v ROM a operuje 
s daty, kterymi je zde nâă aplika&nf 
program. 


MULTITASKING — je ozna&eni pro 
pseudoparalelnf zpracovânf vfce pro- 
cesG. Z hlediska uifvatele se zdâ, ie 
procesy probfhajf zâroveft, ve skutefi- 
nosti vSak procesor stffdavâ pracuje 
bucf pro jeden, nebo pro druhy proces. 

PftlOELENf PROCESORU PROCESU 

— znamenâ, ie procesor je pln6 
k dispozici potfebâm procesu. Casto 
ffkâme, ie proces je obsluhovân. 

AKTIVNi PROCES — je proces, kte- 
tomu je trvale pfidâlen nebo automatic- 
ky stffdavS pfidălovân procesor. 
V konkrâtnfm okamiiku tedy mute, ale 
toi nemusf, byt procesu pfid&len pro¬ 
cesor. Pokud je aktivnfch procesu vfce, 
je jasnâ, ie procesor muie byt 
v kaidâm okamiiku pfidălen pouze 
jednomu z nich. 

PASfVNi PROCES — je takovy proces, 
kterâmu trvale nenf pfidfeiovân proce¬ 
sor. Proces je jakoby zmrazen v ur&ito 
svâ fâzi a nevyvfjf se, dokud se nestane 
op&t aktivnfm. 










PROCES NA POPREDi — je proce- 
sem, ktery mâ neustâle pfistup ke 
klâvesnici, a proto jen s nim muieme 
komunikovat. Na popfedi je tedy 
v dană dobă hlavni proces. Dâle platf, 
ie na popfedi je vidy jen jeden proces. 

PROCES NA POZADf — nemâ prfstup 
ke klâvesnici standardni rutinou 
z ROM, takie se muie pouze vyko- 
nâvat, ale nemuie komunikovat. Tento 
fakt pozadi je nezbytny, protoie, kdyby 
mălo popfedi i pozadi pfistup ke 
klâvesnici, nedalo by se pfi stisku 
klâvesy vlastnă urdit, ke kterâmu pro- 
cesu stisk patri (protoie oba băii 
paralel ne). Pokud ovăem potfebujeme 
s procesem na pozadi komunikovat, 
operadni systâm nâm umoini zâmănu 
popfedi s pozadim. 

UCHOVÂVÂNI obrazovky proce- 

SU — je zachovâni obrazovâ informace 
prisluănâ procesu nezâvisle na proce- 
sech ostatnich. Obrazovku mohou 
uchovâvat oba procesy, nebo jen pro¬ 
ces na popfedi, pfipadnă iâdny 
z procesu. 


ZP0SOB ZAVEDENf SYSTEMU 

Do prâzdnâho poditade nahrajeme 
program zâpisem povelu LOAD “zx- 
multi“. Program se sâm spusti a dotâie 
se nâs na năkterâ zâkladnf parametry. 
Zâkladni hodnota byvâ uvedena 
v zâvorce za otâzkou a pokud s ni 
souhlasime, nic nezadâvâme a stiskne- 
me jen ENTER. Stejnă se zachovâme, 
.pokud na otâzku nejsme schopni od- 
povâdăt. 

Prvni dotaz se tykâ oddălenâho 
uchovâvâni obrâzku. Câst pamăti urde- 
nâ pro zâpis informace, kterâ se zobra- 
zuje na monitoru, se totii muie, ale tăi 
nemusi, uchovâvat. Pokud se ucho- 
vâvâ, mâ kaidy proces svou obrazov¬ 
ku. Pokud se neuchovâvâ, maji sice 
procesy obrazovku spolednou, ale mo¬ 
hou se vyraznă zlepăit dasovâ charak- 
teristiky băhu obou procesu a je 
k dispozici vice pamăti. Proto, pokud 
spolednâ obrazovka neni na zâvadu, 
volime radăji tento reiim. Nâsledujici 
dotaz se tykâ rozdăleni pamăti mezi 
procesy. Rozdăleni pracovni oblasti se 
dosâhne zadânim dâlky delăiho proce¬ 
su, kterâ je normâlnă 31104 bajtu (bez 
obrazovky) pfi neuchovâvâni obrazov¬ 
ky a 24192 bajtQ (bez obrazovky) pfi 
uchovâvâni obrazovky. Nâpovăda nâm 
fikâ, jak dlouhy mâ byt delăf proces, 
pokud je kratăim procesem program 
16 kB. K rozdăleni je nutnă jeătă podo- 
tknout, ie proces nemuie mit libovol- 
nou dâlku, ale Ize ji nastavovat 
s krokem 3456 bajtu, coi je jedna 
pracovni strânka (uprava zadană hod- 
noty na moinou se dăje automaticky). 
Pfi rozdăleni je tăi vhodnă se snaiit 
o maximâlni rozdil dălek obou procesu. 
Tehdy je totii multitasking nejefektiv- 
năjăf a procesy băii nejrychleji. Posled- 
nim dotazem inicializaăniho programu 
je doba, po kterou mâ b^t proces 
pfidălen po stisku klâvesy. Pokud jsou 
totii oba procesy aktivni, pfidăiuje se 
jim procesor stfidavă. Klâvesnice pfi- 
tom patfi procesu na popfedi. Pfi stisku 
klâvesy ovăem muie byt procesor 
prâvă pfidălen procesu na pozadi 
a muşi dojit k okamiitămu pfepnuti 
procesu. Aby pfi souvislâ prâci 
s popfedim nebylo nutnă znovu 


a znovu provâdăt toto zpătnâ pfidălo- 
vâni, zustane procesor bezprostfednă 
po stisku klâvesy pfidălen popfedi na 
urditou dobu (prâvă zde zadâvanou). 
Tato vlastnost je zvlâătă duleiitâ pfi 
reiimu zachovâvâni obrazovek, proto¬ 
ie jinak by nâm pfi prâci s popfedim 
mohla ruăivă problikâvat obrazovka 
pozadi. 

Po zodpovăzeni otâzek se provede 
inicializace a vytvoreni dvou prâzdnych 
procesu. K dispozici je nejdfive menăi 
z procesu (tj. je na popfedi, je mu 
pfidălen procesor a je aktivni, zatimco 
druhy proces je pasivni). Nyni tedy 
muieme zapsat — nebo nahrât pomoci 
LOAD — menăi proces a potâ pfejit 
pfes menu operadniho systâmu (pfikaz 
VYMfrfll) k druhămu, delăimu procesu. 


POPIS FUNKCf SYSTeMU 

Vlastni operaâni systăm ZX MULTI¬ 
TASKING băii na uplnâm pozadi dvou 
uiivatelskych procesu, ke kterym se 
muie chovat ruznym zpusobem. Reiim 
operadniho systâmu muieme mănit 
pfikazy z jeho menu, kterâ se nâm 
objevi pfi soudasnâm stisku klâves 
SYMBOL SHIFT a SPACE. Po celou 
dobu zobrazovâni menu jsou uiivatel- 
skâ procesy pasivni. Menu je rozdăleno 
na dvă dâsti: pfikazovou (vlevo) 
a stavovou (vpravo). 

Stavovâ dâst nâs informuje o reiimu 
operadniho systâmu a procesu. Ctve- 
redkem je vidy vyznaden proces, ktery 
je v souladu s nâpisem. V prvnim fâdku 
vidime dâlku obou procesu ve strân- 
kâch (1 str = 3456 bajtâ) a blikânim je 
oznaden proces, ktery je na popfedi. 
Ve druhâm fâdku nalezneme, ktery- 
z procesu uchovâvâ obrazovku. V dal- 
ăim fâdku je informace o aktivită 
. procesu a o fâdek niie zprâva o prâvă 
pfidălenâm procesu. 

Pfikazovâ dâst obsahuje nâpovădu 
zpusobu volâni dâle uvedenych pfikazu 
(pfikaz se vidy volâ stiskem klâvesy 
odpovidajici inverznă zobrazenâmu 
pismenu): 

VYMăNA PROCES0 — zpusobi oka- 
miitou zâmănu procesu na popfedi 
s procesem na pozadi. Pokud je aktivni 
jen jeden proces, prohodi se pfirozenă 
takâ tato aktivita, takie puvodni pasivni 
proces na pozadi se stane aktivnim 
procesem na popfedi. Jestliie se neu¬ 
chovâvâ obrazovka, musime poditat 
s tim, ie po pfepnuti na druhy proces 
zustane na monitoru stejnâ obrazovka, 
takie by mohlo dojit k nesprâvnâ 
domnănce, ie k pfepnuti vGbec ne- 
doălo. 


1 PROCES AKTIVNI — aktivnim se 
stane prâvă pfidăleny proces a druhy 
proces je pasivni. Aktivni proces bude 
zâroveft na popfedi. 

2 PROCESY AKTIVNI — oba dva 

procesy se stanou aktivnimi a zadne jim 
b^t stfidavă pfidălovân procesor. Cho- 
vâni poditade pfi tomto reiimu je rGznâ, 
v zâvislosti na tom, uchovâvâme-li 
obrazovky. Pokud se uchovâvaji obra¬ 
zovky obou procesu, dojde k jejich 
pfepinâni (projevuje se stfidavym bli¬ 
kânim obrazovek na monitoru). Jestliie 
obrazovky nejsou uchovâvâny, zapisuji 
oba procesy na spolednâ stinitko 
a k blikâni nedochâzi. Ve speciâlnim 


pfipadă mGie obrazovku uehovat jen 
jeden proces a tehdy stfidavă vidime 
vlastni obrazovku procesu s ucho- 
vâvânim a sloudenou obrazovku dru- 
hâho procesu. 

ZRUSENI PROCESU — zpusobi vyma- 
zâni a inicializaci procesu, kterâmu 
je prâvă pfidălen procesor. Je to 
nâhrada za pfikaz NEW, respektive 
RÂND USR 0, z nichi ani jeden nemu- 
ieme pouiit, protoie by doălo k odpo- 
jeni nebo znideni druhâho procesu! 

STOP PROGRAMU — zastavi băh 
programu v prâvă pfidălenâm procesu. 
Na rozdil od klâvesy BREAK (kterou se 
zde nedoporuduje pouiivat) je tento 
pfikaz schopny zastavit i strojovy kâd. 

ENTER — stisk tâto klâvesy opusti 
zobrazenâ menu bez zmăny reiimu 
operadniho systâmu. 

Kromă zâkladnich pfikazu uvede¬ 
nych v menu existuji jeătâ dalăi mână 
typickâ pfikazy: 

X — stiskem tâto klâvesy provedeme 
zruăeni obou procesu a uplnou iniciali¬ 
zaci systâmu. 

N — tato klâvesa stfidavă zapinâ 
a vypinâ reiim uchovâvâni obrâzku 
u pozadi (Ize ji ovăem pouiivat jen 
tehdy, pokud jsme pfi uvodni instalaci 
systâmu poiadovali uchovâvâni obra¬ 
zovky). Tuto funkci se văak nedoporu¬ 
duje pfiliă pouiivat, protoie vzhledem 
ke svâ zvlâătni povaze muie dasto vâst 
k poăkozeni procesu nebo ke zhrouce- 
ni systâmu. Protoie funkce mâni roz¬ 
dăleni pamăti, dochâzi k pfesunum 
bloku pamăti, coi muie mit za nâsle- 
dek zobrazeni nesmyslnych znaku na 
obrazovce. Pokud k tomu dojde, neni 
to zâvada a obrazovku pfisluănâho 
procesu muzeme vymazat băinym 
pfikazem CLS. 

Po pfedteni popisu pfikazu bez prak- 
tickych zkuăenosti se muie zdât jejich 
pouiivâni sloiitâ. Pokud si ale văe 
vyzkouăite v praxi, zjistite, ie sloiitost 
je pouze zdânlivâ a ie zmăny chovâni 
v dusledku pfikazu jsoU'Zcela logickâ 
a odekâvatelnâ. 


PRINCIP ClNNOSTI 

Ukolem operadniho systâmu ZX 
MULTITASKING je umoinăni existence 
a chodu vice programu v poditadi 
soudasnă. Protoie ve skutednosti pro¬ 
cesor nemuie obsluhovat vice progra¬ 
mu zârovefi, je paralelni obsluha pro¬ 
cesu simulovâna rychlym pfepirjânim 
procesoru mezi procesy. Pfi kaidâm 
pfepnuti procesoru je ovăem nezbytnâ 
zapamatovat si pfesnă stav procesu 
v okamiiku jeho zastaveni a uloiit 
veăkerâ informace v registrech proce¬ 
soru. Pfi zpătnâm pfepnuti procesoru 
je dinnost prâvă opadnâ. Registry pro¬ 
cesoru se naplni puvodnimi hodnotami 
a proces pokraduje pfesnă v tom stavu, 
v jakâm byl opuătăn. Pfepinâni mezi 
procesy se dăje automaticky. Pfepinaci 
program je aktivovân periodicky podle 
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preruăovânl procesoru vnitrnîmi hodi- 
nami. Protoie predâni procesoru mezi 
procesy rtenastâvâ okamiită, ale trvâ 
urâitou dobu, je doba, po kteroii je 
procesor pFidălen jednomu procesu, 
stanovena tak, aby pomâr ztrâtovych 
Casu prepinâni k dasGm bâhu procesu 
byl pFijatelny. V naăem pripadâ je 
procesor pridălovân procesu na dobu 
100 ms. Doba prepnutf kolisâ podle 
reiimu, takie v nejhorSim pffpadâ je 
ztrâtovy Cas procesoru asi 50 % 
z celkovâho strojovâho âasu a v nejlep- 
Sfm pripadâ 14 %. 

Pridâlovâni procesoru se ridi nâsle- 
dujfcfmi zâsadami. Pokud je jeden 
z procesG pasrvnî, je procesor trvale 
pfidâlen procesu aktivnfmu. Jsou-li 
oba procesy aktivni, je procesor strîda- 
vă pridălovân obâma procesum. Pri- 
delovânf je periodickâ a na stejnou 
dobu. Jestliie ale v tomto reiimu 
stiskneme klâvesu, je procesor okamii¬ 
tă pridălen procesu na popfedi 
a v nâsledujfcim definovanâm Case 
(mnohem delăim nez zâkladnf âas 
pridălenf procesoru) zGstane procesor 
pFidălen „popredf", Cimi se zamezf 
zbyteănâmu opakovânf tâto situace pfi 
komunikaci uiivatele s programem 
a zkrâti se odezva procesu na stisk 
klâvesy. Posledm moinostf pfidălovânf 
je nedobrovolnâ naruSenf reiimu roz- 
dălovâni strojoveho 6asu vlivem ăin- 
nosti uiivatelskâho programu. Pokud 
totii uiivatelsky program zakâie pfe- 
ruăeni (dălaji to napFiklad prfkazy 
BEEP, SAVE, LOAD a dalâf), zustane 
procesor trvale pFidălen tomuto proce¬ 
su, ai do povoleni preruăenf. 

Poăftafi ZX Spectrum nenf pFizpGso- 
ben na paralelnf zpracovânf dat. Jeho 
systâmovâ promânnâ jsou napFfklad na 
pevnych adresâch a nikoli pod ukazate- 
lem, coi znamenâ, ie systâmovâ pro- 
mănnâ musf byt uloieny. Podobnâ 
situace je s obsahem obrazovky, ktery 
je vidy od adresy 16384. Takâ progra- 
my jsou vătăinou văzâny na konkrâtnf 
absolutnf adresy a muşi se proto 
v râmei pFepfnânf procesu celâ pFesu- 
novat. 

Z dosud uvedenâho vyplyvâ, ie ne- 
sâhneme-H k technickym upravâm po- 
ăftaăe, je jedinâ moinost realizace vfee 
procesG jejich prenăăenf mezi pracovni 
a skladovaci pozief v operaănf pamâti. 
Algoritmus je pfitom navrien tak, ie se 
nepFenâSejf celâ procesy, aie jenom 
ăâst pamâti rovnâ dâlce kratSiho pro¬ 
cesu. Proto mâ takâ operaăni systâm 
nejvătăf uăinnost pfi maximâlnim roz- 
dilu dâlek procesG a neuchovâvânf 
obrazovky, kdy se pFenâăf pouze blok 
pamâti v dâlce jednâ strânky (strânko- 
vâni bylo vynuceno prâvâ nutnostf 
realizace jednoduchâho a rychlâho al- 
goritmu pFepfnâni procesG). 

PftiKLAD POUZlTl 

PROGRAM 

KALKULATOR/ZAPISNIK 

Program KALKULÂTOR/ZÂPISNfK 
je ukâzkou vyuifvâni vyhod paralelnfch 
programu pod systâmem ZX MULTITA- 
SKING. Program, jak nâzev napovidâ, 
umoiftuje provâdâni bâin^ch aritme- 
tickych vypoCtG a zapisovânf vysledkG 
a jinych poznâmek do zâpisnfkovâ 
ăâsti. Cely program je napsân v jazyku 
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^ INICIAUZACE ^ 


|^Oddelene^jjchovQvdn^obrQ20vky^?^^^^^J 


I Razdeleru operocni pomeţi ? 

, I 

.. . r 

I Zavedem ZX Muttitosking_ 


Q 


X MULTITASKING 


E) 


Zachovâm stavu (ENTER) 


> 


- {Vymena procesu popredi' ţ - 


Jeden aktivni* proces )- 


- j Dva ok tivnt' pr ocesy ţ - 


■o 


ruseni procesu 


3 - 


*| Stop programu |~ 


"j (zfuseni obou procesu l ]| ~ 


- | tvypinoni obrazovky ) " T1I '' 1 ~|| _ 


BASIC a instaiujeme ho na pozadf 
hlavniho procesu, kterym bude stFida- 
vâ podle potfeby kalkulâtor nebo hlavnf 
program uiivatele. 

Nahrânf kalkulâtoru provedeme nâ- 
sledovnâ. Instaiujeme operaCnf systâm 
ZX MULTITASKING. Uchovâvâni obra¬ 
zovky radâji poiadujeme (abychom pro 
prvnf pftblfieni nemâli problâmy 
s orientacf v procesech) a delSi proces 
nechâme v maximâlnf dâlce, coi je 
dâlka naznaâenâ v zâvorce. Po iniciali- 
zaci systâmu se nachâzîme v menăfm 
procesu a tak mGieme pflmo nahrât 
program KALKULATOR/ZAPISNfK 
pffkazem LOAD „kalkulâtor**. Potâ 
mGieme pFOcazem VYMEN v menu 
operadnlho systâmu (zavolâ se souCas- 
n*m stiskem SYMBOL SHIFT a SPACE) 
pfejft k druhâmu procesu a pracovat na 
nâm. Kdyi si potfebujeme nâco vypo- 
fiftat, zapsat nebo naopak ze zâpisnfku 
pfeâfst, pFepneme opât prfkazem 
VYM£n na kalkulâtor. 

Abychom mohli s kalkulâtorem pra¬ 
covat, uvedeme si zde prehled jeho 
pfikazG. PFednâ je nutnâ si uvâdomit, 
ie program pracuje ve dvou reiimech 
(kalkulâtor a zâpisnfk), mezi kterymi 
pfeplnâme stiskem ENTER. Po prvnim 
spuătăni programu se vidy nachâzîme 
v reiimu kalkulâtoru (nadâle se poznâ 
podle zobrazeni nâzvu programu 
v prvnf Fâdce). Kalkulâtor oâekâvâ 
zapsânf aritmetickâho vyrazu, ktery mâ 
vypoâitat. ZapfSeme-li tedy napFlklad 
12*56, zobrazi se vysledek 672, ktery se 
zârovert uloil do vysledkevâ promânnâ 
Ve vysledkovâ promânnâ se vidy 


nachâzl poslednl vysledek. Vysledko- 
vou promânnou mGieme uift v nâsle- 
dujlclm aritmetickâm vyrazu (napF. v/2 
dâ nynl vysledek 336). Zadâvat mGie¬ 
me libovolnâ aritmetickâ vyrazy povo- 
lenâ syntaxl BASICu, tedy obsahujfcl 
i funkce a relace. NemGieme pouilt 
promânnych ve vyrazu, kromâ vysled¬ 
kovâ promânnâ „v*\ Pokud chceme 
poslednl vysledek zapsat do zâpisnfku, 
zapf&eme mişto vyrazu „1". Kdyi si 
chceme udâlat v zâpisnfku jinou po- 
znâmku, uvedeme jejl text znakem ,4“ 
(napF. SKCs/rok). Dojde-li pFi vypoCtu 
k chybâ a pFeruâenf programu, pokra- 
Cujeme prfkazem GOTO 21 

Do reiimu zâpisnfku se dostaneme 
z kalkulâtoru stiskem ENTER. V zâpis¬ 
nfku mGieme vybfrat jednotlivâ Fâdky 
kurzory „nahoru** a „dolG**. Novy text 
do Fâdky vioifme stiskem „t“ a zapsâ- 
nfm textu. Stiskem „!* pFeneseme 
samostatnou hodnotu ve vybranâm 
Fâdku do vysledkovâ promânnâ 
„v“. Stiskem ENTER se dostaneme 
zpât do kalkulâtoru. 

K ovâFenf takâ mGieme pouift pro- 
gramy „p1“ a i,p2** f kterâ nahrajeme 
kaidy do jednoho procesu, oba je 
spustfme a reiim systâmu nastavfme 
na dva aktivnf procesy. Velmi nâzornâ 
tak uvidfme, jak systâm stFfdavâ pFi- 
dâluje procesor. Do vâtâiho procesu (o 
dostatednâ velikosti!!!) takâ mGieme 
nahrât nâjakou hru pro 16 kB Spec¬ 
trum, napFfklad „mazeman**, na nfi si 
mGieme vyzkouâet i zastavenf jejfho 
strojovâho programu funkcf STOP 
v operafinfm systâmu. 



1 CLEAR 29999: LOAD ""CODE 
5 INK la PAPER 6: BORDER 7 

10 CLS : PRINŢ "ZX MULŢITASKING % Stepanek '87 _ 

11 PRINŢ AT 20,0; PAPER 5; "ENTER-uzi.je hodnotu v zavorce !!": 
PRINŢ "NEVITE—LI STIS'KNETE ' ENTER' ! 

12 PRINŢ AT 3,O;"Oddelene uchovavani obr.: (NE)": INPUT "Ano/N 
e ? "; o* 

14 LET spodek=23296: IF o*="a" THEN LET spodek=16384: PRINŢ A 
T 3,26;"ANO " 

16 PRINŢ : PRINŢ "ROZDELENI PAMETI PRO DVA PROCESY" 

18 PRINŢ : PRINŢ “DELSI PROCES BEZ SCR=(31104)": PRINŢ PAPER 
5ţAT 12,0;"(Pro *mensi'=16KB zadejte 24000)": IF o*="a" THEN PR 
INT AT 7,22;"24192";AT 12,26; PAPER 5;"17000" 

19 INPUT "Kolik bytes? ";v*: IF v*="" THEN LET sv»=(o*="a")*7+ 
(o*<>"a“>*9: GO TO 22 

20 LET sv=INT (0.99999+VAL (v*>/3456>: IF sv>9 OR sv>7 AND o*= 
"a" THEN PRINŢ #0;AT 1,0;"PRILIS VELKY !": BEEP 2,30: GO TO 19 

22 LET v=23295+3456*sv 

24 LET sm=10-sv-2*(o*="a"); LET m=23295+3456*sm 

25 IF sm>sv THEN PRINŢ #0;AT 1,0;"PROCES NENI VETSI i": BEEP 
2,30: GO TO 19 

26 PRINŢ AT 7,21;sv*3456;" bytes";AT 8,14;“se scr=";sv*3456+69 
12; “ bytes" 

28 PRINŢ "-konec pridelene RAM=";v,"-hodnota RAMTOP =";v-l 

68 

30 PRINŢ : PRINŢ "KRAT. PROCES BEZ SCR=";sm*3456;" bytes";AT 1 
3, 14;"se scr=";sm*3456+6912;" bytes" 

32 PRINŢ "-konec pridelene RAM=";m,"-hodnota RAMTOP =";m-l 

68 

34 PRINŢ : PRINŢ "PRIDELENI PO STISKU klav.=(2s)": INPUT "Koli 
k sekund? “;p*: IF p*=“" THEN LET p=100: GO TO 40 
36 LET p=50*VAL p*: IF p>20O THEN LET p=200 

40 POKE min,spodek—256*1NT (spodek/256): POKE min+l,INT (spode 
k/256): POKE vetsi,v-256*INT (v/256): POKE vetsi+l,INT Cv/256): 
POKE mensi,m-256*INT (m/256): POKE mensi+1, (m/256) : POKE vydrz,p 
50 CLS : PRINŢ AT 0,0; PAPER 6; INK 1;"ZX MULTITASKING vl.O St 
epanek‘87 POVELY: POPREDICstr): ";sm;“ ";sv;" v-vymena 

Obr.uchovava: 1-1 aktivni Aktivni proc: 2-2 aktivni 

Prideleny pr: z-zrus proc Basic zprava: CS-stop prg 

~ENTER-uchova stav 

52 PLOT 0,167: DRAM 0,-55: DRAW 255,0: DRAW 0,55: PLOT 105,167 
: DRAW 0,-54 

99 RANDOMIZE USR startb 


L 

00020 

00040 

00060 

00080 

OOIOO 

00120 

00140 

00160 

00180 

00200 

00220 

00240 

00260 

00280 

00300 

00320 

00340 

00360 

00380 

00400 

00420 

00440 

00460 

00480 

00500 

00520 

00540 

00560 

00580 

00600 

00620 

00640 

00660 

00680 

00700 

00720 

00740 

00760 

00780 

00800 


;************************ 
;* ZX MULTITASKING * 
;************************ 


00820 MEZ DEFW 0;MEZI PROC. 
00840 TEXT DEFW 0;UV0DNI INFO 
00860 AKTPROC DEFB 1;AKT.PROCES 
00880 POPREDI DEFB l;KLAV8tZ0BR 


5 

; c Martin 

STEPANEK 1987 

00900 

00920 

POCET 

STOPB 

DEFB 

DEFB 

0;PRUCHODY 
OţPRO BREAK 

BASIC 

EQU 

#12A9 ;MAIN~1 

00940 

00960 

OBA 

VYDRZ 

DEFB 

DEFB 

0;PRC,ZAROVEN 
120;PO STISKU 

PRAMT 

EQU 

23732 

00980 

MENU 

DEFB 

0;FLAG ZOBRAZ 

RAMTOP 

EQU 

23730 

OlOOO 

TEXTV 

DEFB 

32+128 

UDG 

EQU 

23675 

01020 


DEFM 

/* Vetsi pro/ 

RASP 

EQU 

23608 

01040 


DEFM 

/ces !/ 

CHARS 

EQU 

23606 

01060 

TEXTM 

DEFB 

32+128 

E&RSP 

EQU 

23613 

01080 


DEFM 

/* Mensi pro/ 

CHANS 

EQU 

23631 

OllOO 


DEFM 

/ces !/ 

DATADD 

EQU 

23639 

01120 

TEXTA 

DEFB 

32+128 

PROG 

EQU 

23635 

01140 


DEFM 

/ / 

VĂRS 

EQU 

23627 

01160 


DEFM 

/ / 

ELINE 

EQU 

23641 

<m@o 


BtPM 

/ / 

WORKSP 

EQU 

23649 

01200 


DEFM 

/ / 

STKBOT 

EQU 

23651 

01220 


DEFM 

/ / 

STKEND 

EQU 

23653 

01240 


DEFB 

127;COPYRIGHT 

ATTRP 

EQU 

23693 

01260 


DEFM 

/ 1987 Marti/ 

ATTRT 

EQU 

23695 

01280 


DEFM 

/n Stepanek / 

BORDCR 

EQU 

23624 

01300 


DEFB 

32+128 

REPDEL 

EQU 

23561 

01320 

NEZOBR 

DEFW 

0;POZADI NEZO 

FLAGS 

EQU 

23611 

01340 

MSG1 

DEFB 

0;BASIC1 MSG+ 

ERRNR 

EQU 

23610 . 

01360 

MSG2 

DEFB 

0;BASIC2 MSG+ 


ORG 

63743 

01380 

01400 

S - 

START 

DI 



DISP 1-23744+5000 


ADRESA 

NI 

N2 

MIN 

SP1 

SP2 

NAVRAT 

VETSI 

MENSI 


DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 


RIZENI;PRCSU 
O;UK. DOLNIHO 
O;UK. HORNIHO 
23296;BEZ SCR 
O;SP PROCES 1 
O;SP PROCES 2 
O;NAVRAT. ADR 
O;PROCES(MEZ) 
O;PROCES(MEZ) 


01420 

01440 

01460 

01480 

01500 

01520 

01540 

01560 

01580 

01600 

01620 


LD HL,54399 
LD (VETSI), HL; PROC 
LD HL,26751 
LD (MENSI),HL;PROC 
LD HL,23296;SPODEK 
LD (MIN),HL 
JP ZAVED 


STARTX DI 

CALL VYMEN 
JP ZAVED 


01640 

01660 

01680 

01700 

01720 

01740 

01760 

01780 

01800 

01820 

01840 

01860 

01880 

01900 

01920 

01940 

01960 

01980 

02000 

02020 

02040 

02060 

02080 

02100 

02120 

02140 

02160 

02180 

02200 

02220 

02240 

02260 

02280 

02300 

02320 

02340 

02360 

02380 

02400 

02420 

02440 

02460 

02480 

02500 

02520 

02540 

02560 

02580 

02600 

02620 

02640 

02660 

02680 

02700 

02720 

02740 

02760 

02780 

02800 

02820 

02840 

02860 

02880 

02900 

02920 

02940 

02960 

02980 

03000 

03020 

03040 

03060 

03080 

03100 

03120 

03140 

03160 

03180 

03200 

03220 

03240 

03260 

03280 

03300 

03320 

03340 


STOP IM 1 
RET 

* 

RIZENI DI ; PARALELNICH 
PUSH AF ; PRQCESU 
LD A,(STGPB) 

CP 1 

JP Z,BREAK 

XOR A ;CELA KLAVES 

IN A,(254) 

AND 31 
CP 31 

JP NZ,STISK 

LD A,(OBA);ZAROVEN 

CP O 

JP Z,ROMKEY 
LD A,(POCET) 

INC A 

LD (POCET),A 
CP 10;MEZ PREPNUTI 
JP NZ,BEZKEY 
XOR A 

LD (POCET),A 
POP AF 

JP PROCES ;VYMEN 

ROMKEY POP AF 

JP 56 ;POKR. V ROM 

. 

BEZKEY POP AF 
EI 

RET ;POKR. BEZ KEY 

BREAK XOR A 

LD (STGPB),A 
__ LD A,(FLAGS) 

RES 7,A 
LD (FLAGS),A 
LD A,150 
LD (POCET),A 
POP AF 
EI 

JP BASIC 


STISK PUSH BC 

LD BC,#7FFE ;"OS" 
IN A,(C) 

AND 31 

CP 28;"SPACE"+"SS" 
JP Z,MENUQN 
LD A,(VYDRZ) 

LD B,A 
LD A,255 
SUB B 

LD (POCET),A;ZPOZD 
LD A,(AKTPROC) 

LD B,A 

LD A,(POPREDI) 

CP B 
POP BC 
JP Z,ROMKEY 
POP AF 

JP PROCES ;VYMEN 

POVELY PUSH BC 
POV LD BC,#BFFE 
IN A,(C) 

AND 31 

CP 30 ;"ENTER" 

JP NZ,P0V1 
POVO CALL MENUOFF 
JP POVKON 

P0V1 LD BC,#F7FE 
IN A,(C) 

AND 31 

CP 30 ;"1"PROCES 
JP NZ,POV2 
CALL MENUOFF 
XOR A 

LD (OBA),A 

P0V11 LD A,(POPREDI) 

LD B,A 

LD A,(AKTPROC) 

CP B 
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03360 

03380 

03400 

03420 

03440 

03460 

03480 

03500 

03520 

03540 

03560 

03580 

03600 

03620 

03640 

03660 

03680 

03700 

03720 

03740 

03760 

03780 

03800 

03820 

03840 

03860 

03880 

03900 

03920 

03940 

03942 

03944 

03960 

03980 

04000 

04020 

04040 

04060 

04080 

04100 

04120 

04140 

04160 

04180 

04200 

04220 

04240 

04260 

04280 

04300 

04320 

04340 

04360 

04380 

04400 

04420 

04440 

04460 

04480 

04500 

04520 

04540 

04560 

04580 

04600 

04620 

04640 

04660 

04680 

04700 

04720 

04740 

04760 

04780 

04800 

04820 

04840 

04860 

04880 

04900 

04920 

04940 

04960 

04980 

05000 

05020 

05040 

76 


JP Z,P0VK0N 
POP BC 
POP AF 

•JP PROCES ; VYMEN 
î 

P0V2 CP 29 ; ‘*2"F'R0CESY 
JP NZ,P0V3 
INC A ;TJ.A=1 
LD (OBA),A 

JP POVO 

,- 

P0V3 LD BC,#FEFE 
IN A,<C> 

AND 31 

CP 15 {"V"VYMEN 
JP NZ,POV4 
CALL MENUOFF 
LD A,(POPREDI) 

INC A 

LD <POPREDI>,A 
CP 3 

JP NZ,P0V31 
LD A, 1 

LD (POPREDI),A 
P0V31 POP BC 
POP AF 

JP PROCES ţVYMEN 

P0V4 “CP 29 ; "Z"ZRUS 
JP Z, NEW 
CP 27 |"X“ZAVED 
JP Z,STARTX 

P0V5 CP 30 ;"CS"BREAK 
JP NZ,POV6 
LD A, 1 

LD (STQPB),A 
CALL MENUOFF 
JP P0V11 

P0V6 LD BC,#7FFE 
IN A,(C> 

AND 31 

CP 23 ;"N“NEZOBRAZ 
JP NZ,POV 
LD A,(NEZOBR+1) 

LD BC,O 

LD (NEZOBR),BC 
CP O 

JP NZ,POVO 
LD BC,6912 
LD (NEZOBR),BC 
JP POVO 

POVKON POP BC , 

POP AF 

EI 

RET 

MENUON LD A,(MENU) 

CP 1 

JP Z,PGV 

LD A, 1 

LD (MENU),A 

CALL VYMEN jOKENKO 

PUSH HL 

LD A,1+48+64;BARVA 
LD B,OţDELKA 256 B 
LD HL.22528fZAC.AT 
ZAKLAD LD <HL),A 
INC HL 
DJNZ ZAKLAD 
STAVYO LD A,(POPREDI) 

CP 1 

LD A,1+48+64+128 
JP Z.STAVYi 
LD (22590),A fPOPR 
JP STAVY2 

STAVY1 LB (22588),A fPOPR 
STAVY2 LD HL,(MIN) 

LD A,H 

CP 64 ;«KDYZ 16384 
JP NZ,STAVY5 ;SCR— 
LD A,(NEZOBR+1) 

CP O i * O PRO OBA 
JP NZ,STAVY3 
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05060 


LD 

A,1+40+64?BARVA 

05080 


LD 

(22620),A fSCR+ 

05100 


LD 

(22622),A ;SCR+ 

05120 


JP 

STAVY5 

05140 

î 



05160 

STAVY3 

LD 

A,(POPREDI) 

05180 


CP 

1 

05200 


LD 

A,1+40+64;BARVA 

05220 


JP 

Z.STAVY4 

05240 


LD 

(22622),A ;SCR+ 

05260 


JP 

STAVY5 

05280 

• — — — 



05300 

STAVY4 

LD 

(22620),A ţSCR+ 

05320 

STAVY5 

LD 

A,(OBA) 

05340 


CP 

0 

05360 


JP 

Z,STAVY6 

05380 


LD 

A,1+32+64;BARVA 

05400 


LD 

(22652),A ;AKT+ 

05420 


LD 

(22654),A ;AKT+ 

05440 


JP 

STAVY8 

05460 

î- 



05480 

STAVY6 

LD 

A,(AKTPROC) 

05500 


CP 

1 

05520 


LD 

A,1+32+64;BARVA 

05540 


JP 

Z,STAVY7 

05560 


LD 

(22654),A ;AKT+ 

05580 


JP 

STAVY8 

05600 

5 



05620 

STAVY7 

LD 

(22652),A ;AKT+ 

05640 

STAVY8 

LD 

A,(AKTPROC) 

05660 


CP 

1 

05680 


LD 

A,1+40+64;BARVA 

05700 


JP 

Z,STAVY9 

05720 


LD 

(22686),A;PRID+ 

05740 


JP 

STAV10 

05760 




05780 

STAVY9 

LD 

(22684),A;PRID+ 

05800 

STAV10 

LD 

A,(AKTPROC) 

05820 


CP 

1 

05840 


LD 

A,(ERRNR) 

05860 


JP 

Z.STAV11 

05880 


CP 

255 ; BEZ ERR 

05900 


LD 

A, 0 

05920 


LD 

(MS62),A | MSO— 

05940 


JP 

Z,STAVI2 

05960 


LD 

A, 1 

05980 


LD 

( MSG2 ), A ; MSG+ 

06000 


JP 

STAV12 

06020 

î- 



06040 

STAV11 

CP 

255 ; BEZ ERR 

06060 


LD 

A,0 

06080 


LD 

( MSG1) , A ; MSG- 

06100 


JP 

Z,STAV12 

06120 


LD 

A, 1 

06140 


LD 

(MSG1), A ; MSG+ 

06160 

STAV12 

CALL MSGX 

06180 

STAV14 

POP HL 

06200 


JP 

POV 

06220 

»- 



06240 

MSGX 

LD 

A,(MSG1) 

06260 


CP 

0 

06280 


JP 

Z.MSGX2 ;MSG1- 

06300 


LD 

A,1+32+64;BARVA 

06320 


LD 

(22716),A;MS01+ 

06340 

MSGX2 

LD 

A,(MSG2) 

06360 


CP 

0 

06380 


RET Z ;MSG2- 

06400 


LD 

A,1+32+64;BARVA 

06420 


LD 

(22718),A;MS02+ 

06440 


RET 









06480 

MENUOFF XOR A 

06500 


LD 

(MENU),A 

06520 


CALL VYMEN fOKENKO 

06540 


RET 

06560 







06580 

VYMEN 

PUSH HL ţ OKENKO 

06600 


PUSH DE 

06620 


PUSH BC 

06640 


LD 

HL,16384;OKNO 

06660 


LD 

DE,61312;BUFFER 

06680 


LD 

BC,2048 ;DELKA 

06700 

OKNO 

LD 

A,(HL) 

06720 


PUSH AF 

06740 


LD 

A,(DE) 

06760 


LD 

(HL),A 

06780 


POP AF 

06800 


LD 

(DE),A 

06820 


INC HL . 

06840 


INC DE 

06860 


DEC BC 


06880 

06900 

06920 

06940 

06960 

06980 

07000 

07020 

07040 ATRIB 

07060 

07080 

07100 

07120 

07140 

07160 

07180 

07200 

07220 * 

07240 

07260 

07280 


XOR A 
CP B 

JP NZ.OKNO 
CP C 

JP NZ.OKNO 
LD HL,22528ţZAC.AT 
LD DE,61312+2048 
LD B, O 
LD A,(HL) 

PUSH AF 
LD A,(DE) 

LD (HL),A 
POP AF 
LD (DE),A 
INC HL 
INC DE 
DJNZ ATRIB 
POP BC 
POP DE 
POP HL 
RET 


07300 

î - 

— 

— 

07320 

ZAVED 

DI 

; NOVE PROCESY 

07340 


CALL STOP 

07360 


LD 

A, 1 

07380 


LD 

CPOPREDI*», A 

07400 


LD 

A, 0 

07420 


LD 

(NEZOBR+1),A 

07440 


LD 

(NEZOBR),A 

07460 


LD 

(STOPX),A 

07480 


LD 

(POCET),A 

07500 


LD 

(OBA),A 

07520 


LD 

(MSG1),A 

07540 


LD 

(MSG2),A 

07560 


LD 

(MENU),A 

07580 


LD 

HL,(VETSI);PROC 

07600 


LD 

(MEZ).HL 

07620 


LD 

HL,TEXTV 

07640 


LD 

(TEXT),HL 

07660 


CALL INIT 

07680 


JR 

N0VYP2 

07700 

STDAL 

LD 

HL,(MENSI);PROC 

07720 

- 

LD 

(MEZ),HL 

07740 


LD 

HL,TEXTM 

07760 


LD 

(TEXT),HL 

07780 

STDAL2 

CALL INIT 

07800 


LD 

A, 248 

07820 


LD 

I,A ;ADR=63743 

07840 


IM 

2 

07860 


EI 


07880 


RET 

07900 




t -- 



07910 

NEW 

DI 

; AKTUALNI PROC: 

07920 


CALL MENUOFF 

07940 


LD 

HL,(PRAMT) 

07960 


LD 

(MEZ),HL 

07980 


LD 

HL,TEXTV 

08000 


LD 

(TEXT),HL 

08020 


LD 

A,(AKTPROC) 

08040 


CP 

2 

08060 


JP 

Z.STDAL2 

08080 


LD 

HL,TEXTM 

08100 


LD 

(TEXT),HL 

08120 

08140 


JP 

STDAL2 

î 



08160 

N0VYP2 

DI 

;TYP AMINUS 

08180 


LD 

IY,BASIC;NAVRAT 

08200 


PUSH IY | ADRESA 

08220 


LD 

IY,#5C3A 


08240 

08260 

08280 

*08300 

08320 

08340 

08360 

08380 

08400 

08420 

08440 

08460 

08480 

08500 

08520 

08540 

08560 

08580 

08600 NP2AM1 
08620 
08640 
08660 


PUSH AF ţSIMULACE 
PUSH BC iţULOZENI 
PUSH DE ţREGISTRU 
PUSH HL 
EXX 

EX AF,AF’ 

PUSH AF 
PUSH BC 
PUSH DE 
PUŞH HL 
PUSH IX 
PUSH IY 
LD (SP2),SP 
LD BC,3456 
LD DE,(MIN) 

LD HL,(PRAMT) 

ADD HL,BC 
INC HL 
LD (NI),DE 
LD (N2),HL 
SCF 
CCF 








08680 

08700 

08720 

08740 

08760 

08780 

08800 

08820 

08840 

08860 

08880 

08900 

08920 

08940 

08960 

08980 

09000 

SBC- HL, BC 

EX DE,HL 

LDIR 

UD A,(N2+1) 

CP 226 ;HI 57856 

JP Z,NP2AM3 

NP2AM2 LD BC,3456 

LO DE,(N2) 

LD HL,(NI) 

ADD HL,BC 

EX DE,HL 

ADD HL,BC 

JP NP2AM1 

NP2AM3 LD A,1;AKT. PROCES 
LD ( AKTF'ROC),A 
.JP STDAL 


* 


09O4O*.PROCES DIţULOZENI/NACTENI 

09060 


PUSH AF 

09080 


PUSH BC 

09100 


PUSH DE 

09120 


PUSH HL 

09140 


EXX 

09160 


EX AF,AF' 

09180 


PUSH AF 

09200 


PUSH BC 

09220 


PUSH DE 

09240 


PUSH HL 

09260 


PUSH IX 

09280 


PUSH IY 

09300 


LD A,(AKÎPROC) 

09320 


CP 1 

09340 


JP Z,APLUS 

09360 


JP AMINUS 

09380 

PRZPE7 

POP IY 

09400 


POP IX 

09420 


POP HL 

09440 


POP DE 

09460 


POP BC 

09480 


POP AF 

09500 


EX AF,AF' 

09520 


EXX 

09540 


POP HL 

.22560 


POP DE 

09580 


POP BC 

09600 


POP AF 

09620 


EI 

09640 


RET 


1 


09680 

APLUS 

LD < SF1) ,SP 

09700 


LD BC,3456 ;BLOK 

09720 


LD HL,(PRAMT) 

09740 


SCF 

09760 


CCF 

09780 


SBC HL, BC 

09800 


INC HL 

09820 


EX DE,HL 

09840 


LD HL,54400 

09860 

AP1 

LD <N1>,DE 

09880 


LD CN2),HL 

09900 


ADD HL,BC 

09920 


EX DE,HL 

09940 


LDIR 

09960 


LD HL,<N2) ţZDROJ 

09980 


LD DE,(NI) ;CIL 

ÎOOOO 


LD BC,3456 ţ BLOK 

10020 


LDIR 

10040 


LD HL,(NI) 

10060 


LD A,(NEZOBR+1) 

10080 


LD B, A 

10100 


LD A,(MIN+1) 

10120 


ADD A, B 

10140 


CP H 

10160 


JP NZ,AP2 

10180 


LD A, B 

10200 


CP 0 

10220 


CALL NZ,SCRPLS 

10240 


LD A, 2 

10260 

* 

LD (AKTPROC),A 

10280 


LD SP, (SP2) 

10300 


JP PRZPET 

10320 

;— 


10340 

AP2 

LD BC,3456 

10360 


LD DE,(N2) 

10380 


LD HL,(NI) 

10400 


SCF 

10420 


CCF 

10440 


SBC HL,BC 

10460 


EX DE,HL 

10480 


SBC HL,BC 


10500 

10520 


JP AP1 

1 


10540 

AMINUS 

LD (SP2),SP 

10560 


LD A,<NEZOBR+1) 

10580 


CP 0 

10600 


CALL NZ,SCRMNS 

10620 


LD BC,(NEZOBR) 

10640 


LD HL,(MIN) 

10660 


ADD HL,BC 

10680 


EX DE,HL 

10700 


LD HL,(PRAMT) 

10720 


ADD HL,BC 

10740 


LD BC,3456 

10760 


ADD HL,BC 

10780 


INC HL 

10800 

AM1 

LD (NI),DE 

10820 


LD <N2>,HL 

10840 


SCF 

10860 


CCF 

10880 


SBC HL,BC 

10900 


EX DE,HL 

10920 


LDIR 

10940 


LD BC,3456 ;DELKA 

10960 


LD DE,<N1> ;CIL 

10980 


LD HL,<N2> ţZDROJ 

ilOOO 


LDIR 

11020 


LD A,(N2+1) 

11040 


CP 226 ţ HI 57856 

11060 


JP NZ,AM2 

11080 


LD A, 1 

lllOO 


LD <AKTPROC),A 

11120 


LD SP,<SP1) 

11140 

11160 

î 

JP PRZPET 

11180 

AM2 

LD BC,3456 

11200 


LD DE,<N2> 

11220 


LD HL;(NI) 

11240 


ADD HL,BC 

11260 


EX DE,HL 

11280 


ADD HL,BC 

11300 


•JP AM1 


« 


11340 

SCRPLS 

LD A,(POPREDI) 

11360 


CP 1 

11380 


JP Z,ULOZSC;SCREEN 

11400 


LD BC,6912 

11420 


LD HL,<N2> 

11440 


SCF 

11460 


CCF 

11480 


SBC HL,BC 

11500 


LD DE,16384 

11520 


LDIR 

11540 

11560 

î 

RET 

11580 

ULOZSC 

LD BC,3456 

11600 


LD HL,<N2> 

11620 


SCF 

11640 


CCF 

11660 


SBC HL, BC 

11680 


EX DE,HL 

11700 


LD HL,16384 

11720 


LD BC,6912 

11740 

11760 

11780 


LDIR 

RET 

» * 


11800 

SCRMNS 

LD A,(POPREDI) 

11820 


CP 2 

11840 


JP Z,ULOZ ţ SCREEN 

11860 


LD BC,3457 

11880 


LD HL,(PRAMT) 

11900 


ADD HL,BC 

11920 


LD BC,6912 

11940 


LD DE,16384 

11960 


LDIR 

11980 

12000 

■ » 

RET 

12020 

12040 

12060 

12080 

12100 

12120 

12140 

ULOZ 

LD BC,6912 

LD DE,(PRAMT) 

LD HL,16384 

INC DE 

LDIR 

RET 

î 


12160 

INIT 

OI 

12180 


LD A,#07 

12200 


OUT (#FE),A 

12220 


LD A,#3F 

12240 


LD I, A 

12260 


DEFB 0,0,0,0,0,0 

12280 


LD HL,(MEZ) 

12300 


XOR A 


12320 


LD BC,16383 

12340 


SBC HL, BC 

12360 


LD B,H 

12380 


LD C,L 

12400 


LD HL,(MEZ) 

12420 


POP DE ţNAVRATGVA 

12440 


LD (NAVRAT),DE;ADR 

12460 

NULUJ 

LD (HL),A 

12480 


DEC HL : DEC BC 

12500 


CP B 

12520 


JR NZ,NULUJ 

12540 


CP C 

12560 


JR NZ,NULUJ 

12580 


LD HL,(MEZ) 

12600 


LD (PRAMT),HL 

12620 


LD DE,#3EAF 

12640 


LD BC,#00A8 

12660 


EX DE,HL 

12680 


LDDR ţPLNENI UDG 

12700 


EX DE,HL 

12720 


INC HL 

12740 


LD (UDG) , HL 

12760 


DEC HL 

12780 


LD BC,#0040 

12800 


LD (RASP),BC 

12820 


LD (RAMTOP),HL 

12840 


LD HL,#3COO 

12860 


LD (CHARS),HL 

12880 


LD HL,(RAMTOP) 

12900 


LD (HL),#3E 

12920 


DEC HL 

12940 


LD SP,HL 

12960 


DEC HL 

12980 


DEC HL 

13000 


LD (ERRSP),HL 

13020 


LD IY,#5C3A 

13040 


LD HL,#5CBB 

13060 


LD (CHANS),HL 

13080 


LD DE,#15AF 

13100 


LD BC,#0015 

13120 


EX DE,HL 

13140 

. 

LDIR 

13160 


EX DE,HL 

13180 


DEC HL 

13200 


LD (DATADD),HL 

13220 


INC- HL 

13240 


LD (PROG),HL > 

13260 


LD (VĂRS),HL 

13280 


LD (HL),#80 

13300 


INC HL 

13320 


LD (ELINE),HL 

13340 


LD (HL),#0D 

13360 


INC HL 

13380 


LD (HL),#80 

13400 


INC HL 

13420 


LD (WORKSP),HL 

13440 


LD (STKBOT),HL 

13460 


LD (STKEND),HL 

13480 


LD A,#38 

13500 


LD (ATTRP),A 

13520 


LD (ATTRT),A 

.13540 


LD (BORDCR),A 

13560 


LD HL,#0523 

13580 


LD (REPDEL),HL 

13600 


DEC (IY—58) 

13620 


DEC (IY—54) 

13640 


LD HL,#15C6 

13660 


LD DE,#5C10 

13680 


LD BC,#OOOE 

13700 


LDIR 

13720 


SET 1,(IY+1) 

13740 


CALL #OEDF 

13760 


LD (IY+49),02 

13780 


CALL #0D6B 

13800 


XOR A 

13820 


LD DE,(TEXT) 

13840 


CALL #OCOA 

13860 


XOR A 

13880 


LD DE,TEXTA 

13900 


CALL #OCOA 

13920 


SET 5,(IY+2) 

13940 


LD IY,(NAVRAT) 

13960 


PUSH IY;ADR Z INIT 

13980 


LD IY,#5C3A 

14000 


RET 

14020 

14040 



? 

KONEC 

DEFB 0 t 
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V obtasti komunikace ălovăka s poâitaâem stâle roste uloha dialogu, nejăastăji prostfednictvim dispieje 
a klâvesniee. Zvlâătă mikropoăitaăe jsou pro dialog vhodnâ jii svoji koncepci. Na druhâ strană realizace lepăiho 
dialogovâho systâmu neni snadnâ zâleiitost, navlc je obvykle odtaiitâ od vlastniho Feăenâhe problâmu, proto 
6asto programâtor vytvoFi jakousi nâhraiku, kterâ formou dotazu a odpovădi realizuje dialog. Toto Feăeni je pro 
programâtora vyhodnâ, protoie je nenâroânâ na pracnost; uiivateli, a zvlâătă neznalâmu uiivateti, văak pFinâăl 
obtiie pfi pouifvânl. 

DIATEM realizuje dialogovou (ăst programu, umoiftuje programâtorovi soustFedit se plnă na vlastni problâm, 
uiivateli pak nabizf nâzorny a srozumitelny dialog. 


Vyhody DIATEMu 

Ze strany programâtora: 

— mână prâce (dialog je hotovy), 

— srozumiteinăjăi program (dialogovâ 
Câst je oddâlena), 

— oddăleni nâvrhu dispieje a jeho 
ovlâdânl, 

— jednoduchy pfevod programu na 
jiny poăltaă (prizpusobuje se pouze 
dialogovy systâm), 

— jeden program muie zabezpeăovat 
nâkotik ăinnostl (pri pouiitl prfstupo- 
vych prâv). 

Ze strany uiivatele: 

— pFIjemnâ prâce, 

— jednotnâ forma dialogu pfi rOznych 
programech. 

DIATEM je realizovân pro pouiitl na 
poăltaăi PMD-85. Jednoduchym 


DIATEM je napsân v BASICu 
v podobâ souboru podprogramu, kterâ 
se pripojl k hlavntmu programu. 

Zâkladnf pojmy 

Dialog se uskuteâftuje pomocl dialo- 
govâho dispieje. Tentodisplej navrhuje 
programâtor ve tvaru zadâni dialogo- 
vâho dispieje (pomocl prikazu DATA). 
Zadâni dispieje si DIATEM po otevrenl 
tohoto dispieje pri bâhu programu 
mâni na vnitrnl popis dialogovâho 
dispieje. 

Diaiogovy displej se sklâdâ z polo- 
iek. S nimi pracuje programâtor pomo¬ 
cl funkci DIATEMu. Funkce umoiftujl 
napf. vyplnănl hodnoty poloiky, zâpis 
do poloiky, v^băr polozky apod. Ke 
kaidâ poloice existujl prfstupovâ prâva 
pro vybăr a zâpis. Poloika v sobă 
sluăuje vlastnosti bodu menu a udaje 
formulâre. Mâ jednotnâ zadâni, popis 


Pro speciâlnl typy prfstupu Ize pouilt: 

— prâzdnâ mnoiina — cely vektor 
nulovy — nikdo nemâ prlstup, 

— univerzâlni mnoiina — cely vektor 
jedniâkovy — vâichni majl prlstup. 

Poloiky 

Poloika je z hlediska programu nej- 
menâi, dâle nedălitelnâ ăâst dialogo¬ 
vâho dispieje. PFes ni se pomocl funkci 
dialogovâho systâmu uskuteâăuje dia¬ 
log. 

Poloika se sklâdâ z tăchto ââstf: 

— aktivnl bod — bod, na kten/ je 
moino najet kurzorem, a tak vybrat 
poloiku, 

— hodnota — vlastni hodnota poloiky 
(Clslo, text atd.). 

Kaidâ z tăchto câstl muie chybăt, 
podle toho se rozliăuje pouiitl poloiky: 



v systâmu. To znamenâ, ie veăkerâ 
zadâvâni i veăkerâ zobrazovânl se 
provâdl pFes diaiogovy systâm. Pro¬ 
gram je tlm jednak zbaven starosti se 
vstupy a vystupy, jednak se stâvâ 
hardwarovă nezâvislym. 


——^ predovâni' udaju 
vytvareni 

— real zace vytvâfeni 


PFistupovâ prâva 


poloiky uvedena mnoiina skupin, kte¬ 
râ majl tento druh pFIstupu povolen. 

Pro kaidou poloiku muie byt zadâna 
kliăovâ klâvesa — znakovâ klâvesa, pFi 
stisku kterâ se kurzor pFemlstf na 
danou poloiku (urychlenl pFesunu kur- 
zoru). 


Dialog mflie mit mnoho forem, pro 
srozumitelnou a jednoduchou obsluhu 
văak jsou nejvhodnăjăl dvă: 

— technika menu — uiivatel si vyblrâ 
z nabldky ăinnostl (slouil pro Ffzenl 
ăinnosti), 

— formulâFovâ technika — uiivatel 
vyplftuje a opravuje udaje formulâFe 
(slouil pro vstup a vystup dat). 

DIATEM umoifiuje: 

— zobrazenl dialogovâho dispieje, 

— vstup z poloiky, 

— vystup do poloiky, 

— vybăr poloiky, 

— zâkladnl editaci zadâvanych udaju, 

— respektovânl uiivatelskych prâv pro 
vybăr a zâpis. 
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Pro'pFIstup do poloiek jsou vytvoFe- 
ny skupiny uiivatelu. Kaidâ skupina 
mâ jinâ pFIstupovâ prâva. 

UspoFâdânl do skupin je libovolnâ, 
kaidâ skupina mOie obsahovat libovol¬ 
nâ uiivatele, kaidy uiivatel muie patFit 
do libovolnych skupin. Uiivatel mâ pak 
prâva văech skupin, do kterych patFI. 
Rozdălenl do skupin urăuje progra¬ 
mâtor. 

PFi urăovânl pFIstupu se porovnâ 
mnoiina skupin uiivatele s mnoiinou 
skupin, kterâ majl prâvo pFIstupu do 
poloiky. Pokud je nalezena alespoh 
jedna shodnâ skupina, je pFIstup povo¬ 
len. 

Informace o skupinâch je uloiena 
poziănă, urăena polohou bitu ve vekto- 
ru; hodnota bitu urăuje pFItomnost 
skupiny. Porovnânl mnoiin se provâdl 
logickym souăinem vektoru. Pokud je 
vysledek nenulovy, nastala alespoă 
jedna shoda. 


Zadâni dialogovâho dispieje 

Zadâni vytvâFI programâtor jako ăâst 
svâho programu pomocl pFlkazu DATA. 
V zadâni mus! uvâst: 

— nemănnâ texty na obrazovce, 

— zadâni poloiek. 

Zadânf je ve tvaru: 

zadâni textu 

zadâni textu 
—1 

podeţ poloiek (n) 
zadâni poloiky 1 


zadâni poloiky n 

Zadânf textu je ve tvaru: 

vodorovnâ adresa na obrazovce, 
svistâ adresa na obrazovce, 
text. 










Zadânf pofoiky je ve tvaru: 

vodorovnâ adresa aktivnfho bodu na obrazovce, 

svisiâ adresa aktivnfho bodu na obrazovce, 

klliovâ klâveaa (.znak), 

pfistup k vybâru pofoiky, 

vodorovnâ adresa hodnoty na obrazovce, 

svistâ adresa hodnoty na obrazovce, 

dâtka hodnoty (podeţ znakO), 

pfistup k zâpisu do hodnoty. 

Vodorovnâ adresa klfCovâho bodu 
a dâlka hodnoty jsou v popisu displeje 
pouiity k indikaci typu poloiky, proto 
must byt nenulovâ. Neexistence Câsti 
poloiky se zadâvâ prâzdnou mnoiinou 
pffstupu. 

Zadânf dialogovâho displeje muie 
byt v programu libovolny podeţ, jejlch 
roztiSenf se provâdf pred otevfenim 
dialogovâho displeje pflkazem RESTO- 
RE Cfslo fâdku. 

Popia dialogovâho displeje 

Popis si vytvâff dialogovy systâm pfi 
otevfenf dialogovâho displeje. Popis je 
umfstân V poli QA. Je sloien z popisu 
jednottrvych poloiek, kaidâ potoika je 
umfstâna v jednom fâdku pole QA 
takto: 
stoupec 

<h vodorovnâ soufadnice aktivnfho bo¬ 
du (pokud je zakâzân vybâr poloiky, je 
tento udaj zâpomy), 

1: svistâ soufadnice aktivnfho bodu, 

Jfc kifCovâ kiâvesa (ASCII hodnota 
klâvesy), 

3: vodorovnâ soufadnice hodnoty, 

4: svisiâ soufadnice hodnoty, 

5: dâlka hodnoty (pokud je zakâzân 
zâpis do hodnoty, je tento âdaj 
zâpomy). 


Popis existuje po celou dobu setrvânf 
danâho dialogovâho displeje na obra¬ 
zovce (do otevfenf jinâho displeje). 


Funkce DIATEMu 

Pomocf funkce muie program komu- 
nikovat s uiivatelem. Funkce se volajf 
pflkazem GOSUB Cfslo fâdku. Para- 
metry jsou promânnâ s vyhrazenymi 
jmâny, kterâ jinde v programu nesmâjf 
b^t pouiita. 

Parametry: 

CP Cfslo poloiky, 

HO$(CP) hodnota poloiky, 

PP pffstupovâ prâva uiivatete. 

U popisu funkcf je vidy uvedeno 
jejich jmâno (mâ vyznam pouze pro 
lepâf porozumânf), Cfslo fâdky, pouiitâ 
parametry a Cinnost 

INIT 51000 — 

Musf byt pouiita pfed pouiitfm vSech 
ostatnfch funkcf, a to pouze jednou 
v programu; slouif pro inicializaci vnitf- 
nfch promânnych. 

OPEN 52000 vstup: PP 
Provâdf otevfenf dialogovâho displeje 
pro prâci; provede zobrazenf textu 
a aktivnfch bodu a vytvoff popis dialo¬ 
govâho displeje pod le zadânf dialogo¬ 
vâho displeje a pffstupovych prâv uii- 
vatele; pfed volânim je nutno zvolit 
dialogovy displej pffkazem RESTORE. 


CURSOR 53000 vstup; CP 
vystup: CP 

Provâdf nastavenf kurzoru na aktivnf 
bod danâ poloiky; pokud tato poioika 
nemâ povolen vybâr aktivnfho bodu, 
zkou§ejf„se postupnâ nâsledujfcf po¬ 
loiky; vystupnf hodnota CP oznaCuje 
poloiku, kde se kurzor zastavil. 

SET 54000 vstup: CP,HO$(CP) 
Zpusobf zobrazenf fetâzce HO$(CP) 
v hodnotâ poloiky; fetâzec je zarovnân 
doleva, chybâjfcf znaky doplnâny me- 
zerami, pfebyteCnâ znaky ofiznuty. 

ASK 55000 vstup; CP 

vystup: HO$(CP) 

Tato funkce umoiftuje vstup z danâ 
pofoiky; kurzor skoCf na prvnf znak 
hodnoty a uiivatel mOie hodnotu vy- 
plnit. 

EditaCnf klâvesy: 

posun kurzoru, 

CLR smazânf hodnoty, 

EOL ukonCenf zadâvânf. 

GET 56000 vstup: CP 

vystup: CP,HOj>(CP) 
Umoifiuje vybâr poloiky a pffpadny 
vstup z tâto poloiky; kurzor je nastaven 
na aktivnfm bodu danâ poloiky, uiiva¬ 
tel s nfm muie pohybovat po aktivnfch 
bodech klâvesami «- (pfedchozf po¬ 
ioika a -» (nâsledujfcf poioika) nebo 
klfCovymi klâvesami a klâvesou EOL 
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vybrat iâdanou poloiku; pokud nemâ 
poloika hodnotu nebo je zakâzân zâpis 
(bod menu), Cin nost funkce konCf, 
pokud poloika mâ hodnotu (udaj for- 
mulâfe), je dalăf Cinnost stejnâ jako 
u funkce ASK. 

Program DIATEM 

Pouiitf BASIC-G na PMD-85 pFineslo 
năkolik omezenf: 

— volânf a umfstănf funkcf: 

BASIC-G neumoifiuje volânl podpro- 
gramu jmânem, je tedy nutno volat 
Cfslem Fâdku; Cfsla Fâdku jsou nemăn- 
nâ, proto je DIATEM umfstăn v oblasti 
50000—59999, programâtor ji nesml 
pouiît. 

— parametry funkcf: 

BASIC-G neumoifiuje predâvat pri vo¬ 
lânl parametry, proto byly vybrâny 
promănnâ, kterâ program mus! pred 
volânlm funkce nastavit, funkce je pak 
pouiije jako vstupnl parametry, po- 
dobnă funkce nastavuje vystupnf para¬ 
metry. 

— lokâlnf promănnâ: 

BASIC-G neumoihuje lokalitu promăn- 
nych, proto majl v DIATEMu văechny 
lokâlnf promănnâ jmâno zaCInajfcl pfs- 
menem Q, programâtor tato jmâna 
nesml pouift v programu. 

DIATEM pouifvâ tri hardwarovă zâvislâ 
funkce: 

— vstup z klâvesnice: 

je realizovân pFes podprogram monito- 
ru, volâ se funkcf USR(-31583); 

— zobrazenf kurzoru: 

kurzor je znâzornân inverznostl zobra- 
zenl znaku, pouifvajf se pro năj pro¬ 
mănnâ QB$. a QJ$, zobrazovânl se 
provâdf prlkazy BMOVE a BPLOT (pod¬ 
program 57200); 

— tisk na urCenou poiohu na obrazov- 
ce: 

BASIC-G neumoiftuje tisk na libovol- 
nou poiohu na obrazovce, monitor văak 
alespoft CâsteCnă ano; je nutno nastavit 
adresu na obrazovce do pamăti na 
adresâch -16322 a -16321 a nulovat 
poiohu tisku pro BASIC na adrese 
24065 (podprogram 57100). 

Promănnâ 

Globâlnf promănnâ: 

NP maximâlnl poCet polozek, mus! na¬ 
stavit programâtor pFed volânlm 
INIT, 

CP Clslo poloiky, 

HO$(NP) hodnoty poloiek, 

PP pFIstupovâ prâva uiivatele. 

Lokâlnf promănnâ: 

QA(NP,5) popis dialogovâho displeje, 
QB$ levâ polovina kurzoru, 

QJ$ pravâ polovina kurzoru, 

QC vodorovnâ souFadnice kurzoru, 

QD svislâ souFadnice kurzoru, 

QE vodorovnâ souFadnice tisku, 

QF svislâ souFadnice tisku, 

QG$ Fetăzec pro tisk, 

OH pomocnâ promănnâ, doCasnâ hod¬ 
noty, 

Ql pozice znaku pFi editaci, 


80 mikroetektronika 


QK smăr posunu kurzoru po aktivnfch 
bodech. 

Pomocnâ podprogramy • 

Tyto podprogramy jsou volâny 
z funkcl Diatemu, programâtor je văak 
muie takâ pouilt, pokud chce realizo- 
vat speciâlnl chovânf dialogu. Popis 
podprogramu je stejny jako u funkcl: 

PRINŢ 57100 vstup: QE,QF,QG$ 
Funkce provâdf tisk Fetăzce QG$ na 
pozici na obrazovce urCenou QE a QF. 

CURNEG 57200 vstup: QC,QD 
Funkce provâdf negaci zobrazenl kur¬ 
zoru na pozici urCenâ QC a QD. 

EDIT 57300 vstup: CP,HO$(CP),QA 
vystup: HO$(CP) 

Funkce provâdf vstup do hodnoty po¬ 
loiky CP s editacf. 

POUZlTl diatemu 

PoFadf a poCet pouiitf dialogovych 
funkcf jsou libovolnâ, nejdFfve je văak 
nutno nastavit nejvătăf poCet poloiek 
NP a provâst funkci INIT. 

DIATEM neprovâdf kontrolu zadânf 
dialogovâho displeje, ani pouiitf funkcf, 
to je văcf programâtora. Pokud se 
podobnâ chyba vyskytne, zpusobf bucf 
nesprâvnâ chovânf dialogu nebo 
ukonCenf a hlâăenf chyby BASICu. 

Văechny vodorovnâ a svislâ adresy 
na obrazovce, se kterymi se pracuje, 
jsou takovâ, jako by byly urCeny pro 


50000 REM 

50010 REM ******************** 

50020 REM * * 

50025 REM * DIATEM * 

50030 REM * DIALOGOVY SYSTEM * 

50040 REM * PMD-85 * 

50050 REM * * 

50060 REM ******************** 

50070 REM 
50080 REM 
51000 REM 

51010 REM *** INIT *** 

51020 REM INICIALIZACE DIALOGU 
51030 REM 

51040 PP=*—1 :QB$=" ":QJ$=*??????? 

??" 

51050DIM QA(NP,5>,HO$(NP):QK«1:RETURN 
52000 REM 

52010 REM *** OPEN *** 

52020 REM OTSVRENI DIALOGOVEHO DISPLEJE 
52025 REM DISPLEJE SE ROZLISUJI POMOCI R 
ESTORE PRED VOLANIM 
52030 REM 

52040 GCLSAR:QC=0:QD=0 

52050 READ QE:IF QE>=0 THEN READ QF,QG$: 
GOSUB 57100sGOTO 52050 

52060 READ NP:POR CP«1 TO NPîREAD QA(CP, 
0),QA(CP,1),QH,QG$ 

52070 IP (QH AND PP)=0 THEN QA(CP,0)=-QA 
(CP,0) 

52080 QA(CP,2)=ASC(QG$+CHR$(0)):READ QA( 
CP,3),QA(CP,4),QA(CP,5),QH 
52090 IP (QH AND PP)=0 THEN QA(CP,5)»-QA 
(CP,5) 

52100 QE=QA(CP,0):IF QE<0 THEN 52120 
52110 QF=QA(CP,1):QG$=**":GOSUB 57100 
52120 NEXT CP:CP«1:GOSUB 57200:GOTO 5300 
0 

53000 REM 

53010 REM *** CURSOR *** 

53020 REM NASTAVENI KURZORU NA POLOZKU 

53030 REM VSTUP - CP (CISLO POLOZKY) 

53040 REM 

53050 GOSUB 57200 

53060 IP CP<»0 THEN CP=NP 

53070 IF CP>NP THEN CP=1 

53080 IF QA(CP,0)>=0 THEN QC»QA(CP,0):QD 

»QA(CP,1):QK=l:GOTO 57200 

53090 CP=CP+QK:GOTO 53060 

54000 REM 

54010 REM *** SET *** 

54020 REM ZOBRAZENI HODNOTY V POLOZCE 
54030 REM VSTUP - CP (CISLO POLOZKY) 
54040 REM - HOS(CP) (HODNOTA POLOZ 

KY) 

54050 REM 

54060 QE»QA(CP,3):QF=QA(CP,4):IF QB<0 TH 
EN RETURN 

54070 QG$=LEPT$(HO$(CP)+" 

",ABS(QA(CP,5))) 


pFfkaz BMOVE — vodorovnâ 0 ai 47, 
svislâ 0 ai 241 (242 nelze pouiît). 

PFfstupovâ mnoiiny se zadâvajf jako 
dekadickâ Cfsla reprezentujfcf binârnf 
vektor. Vektor muie mft maximâlnâ 16 
mfst, tj. mOie byt 16 ruznych pFfstupo- 
vych skupin. Stejnym zpusobem se urCf 
pFfstupovâ prâva uiivatele nastavenfm 
promănnâ PP. 

Vybăr poloiky pohybem kurzoru 
klâvesami -* se provâdf podle poradt 
zadânf poloiek. Je proto vhodnâ za- 
dâvat poloiky v poFadf, kterâ odpovfdâ 
logickym pohybum kurzoru. 

PFizpusobeni pro jin6 poditade 

DIATEM je moino pFizpusobit pro 
libovolnâ poCftaC s jazykem BASIC, 
jedinou podmfnkou je moinost realiza- 
ce 

— vstupu z klâvesnice, 

— zobrazenf kurzoru, 

— tisku na urCenou poiohu na obrazov¬ 
ce. 

PFizpQsobenf spoCfvâ v upravă tăch- 
to tFf funkcf: 

— vstup z klâvesnice — Fâdky 56060, 
57330, s tfm souvisejf kâdy editaCnfch 
klâves — Fâdky 56060, 56070, 56100, 
57340, 57350, 57360, 57345. 

— zobrazenf kurzoru — podprogram 
na 57200. 

— pFfmy tisk — podprogram na 57100. 


54080 GOTO 57100 
55000 REM 

55010 REM *** ASK *** 

55020 REM VYZADANI VSTUPU POLOZKY 
55030 REM VSTUP - CP (CISLO POLOZKY) 

55040 REM VYSTUP - HO$(CP) (HODNOTA POLO 
ZKY) 

55050 REM 

55060 GOSUB 53000:GOTO 57300 
56000 REM 

56010 REM *** GET *** 

56020 REM VSTUP S VY3EREM POLOZKY 
56030 REM VYSTUP - CP (CISLO POLOZKY) 
56040 REM - HO$(CP) (HODNOTA POLO 

ZKY) 

56050 REM 

56060 GOSUB 53000:QH=USR(-31583):IF QH=1 
37 THEN 57300 

56070 IF QH=131 THEN CP=CP-1:QK=-l:GOTO 
56000 

56100 IF QH=133 THEN CP«CP+l:GOTO 56000 
56130 FOR QI=»1 TO NP:IP QA(QI,2)=QH THEN 
CP=QI 

56140 NEXT QI:GOTO 56000 
57000 REM 

57010 REM ** POMOCNE PODPROGRAMY ** 

57100 REM * PRINŢ * 

57110 REM PRIMY TISK NA OBRAZOVKU 

57120 REM QE,QF - POLOHA TISKU, QGS - TE 

XT 

57130 POKE -16322,QE+64*QF-256*INT(QF/4) 

:POKE -16321,195+INT(QF/4) 

57140 POKE 24065,OsPRINT QG$;:RETURN 
57200 REM * CURNEG * 

57210 REM NEGACE ZOBRAZENI KURZORU 

57220 IF QC=0 THEN 57250 

57230 BMOVE QC-1,QD+1 

57240 BPLOT QB$,1 

57250 BMOVE QC,QD-*-l 

57260 BPLOT QJ$,1 

57270 RETURN 

57300 REM * EDIT * 

57310 IF QA(CP, 5)0 THEN RETURN 
57320 GOSUB 57200:QD=QA(CP,4):QI=1 
57330 QC=QA(CP,3)+Q1-1:GOSUB 57200:QH=US 
R(-31583) 

57340 IF QH=137 THEN 53000 

57345 IF QH=14i THEN GOSUB 53000:HO$(CP) 

=*":GOSUB 54000:GOTO 57300 

57350 GOSUB 57200:IF QH=131 THEN QI=*QI-1 

îGOTO 57390 

57360 IF QH=*133 THEN QI=QI+1 :GOTO 57390 
57370 HO$(CP)=MID$(LEFT$(" “+HO$(CP),QI) 
+CHR$(QH)+MID$(HO$(CP),QI+1),2) 

57390 QE=QA(CP,3)+QI-1:QF=QA(CP,4):QG$=C 

HR$(QH):GOSUB 57100:QI=QI+1 

57390 IF QI=0 THEN QI~1 

57400 IF QI>QA(CP,5) THEN QI=QI-1 

57410 GOTO 57330 



